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HISTORY 


NO CHANGES TO THE 11/34 FLOATING POINT DIAGNOSTICS PART ‘A* WERE 
FOUND TO BE NEEDED TO ADAPT IT FOR USE ON THE 11/44. 


THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 
TO MAKE THE °B' VERSION COVER THE 11/44: 


1. TEST 22 - PROCESSOR LOOKS TO SEE IF APT IS CON- 
TROLLING THE TEST, AND IF IT IS, CHECKS TO SEE 
IF THE USER HAS SELECTED THIS TEST BY CHECKING 
BIT 7 IN THE SWITCH REGISTER. I S ALSO BEEN 
CHANGED SO THAT IF BIT 7 IS *ONE*, THE CODE WILL 
SELECT THE TEST. 


THE FOLLOWING WAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 
TO MAKE THE ‘C* VERSION COVER THE 11/44: 


1. TEST 76 - CHECKS THAT FP PROCESSOR DOESN'T ACCESS 
D-SPACE UNTIL CONDITIONS WARRANT. 


2. TEST 77 = CHECKS THAT SR1 MATCHES WHAT ACTUALLY 
HAPPENED TO THE REGISTER OF THE INSTRUCTION 
THAT. THE VALUE OF AUTO INCREMENT/DECREMENT was 


ALL THREE PARTS WERE RE-RELEASED WITH NEW SCOPE AND ERROR ROUTINES THAT 
ey aoe 0 OF TH : 4 coabe ear hae (POWER MONITOR BIT). i ADDI- 


WERE $C OUTINE, EXECUTED AT THE BEGINNING OF 
EACH TEST. IF THE BIT BECOMES SET RROR IS C FROM THE 
ROUTINE. THE BIT IS CLEARED, AND THE TEST IS CONTINUED. 
IF THE BIT BECOMES SET IN THE MIDDLE OF A TEST, ERROR OCCURS 
FOR ANY R TINE WILL CALL & , THE 
MONITOR BIT ERROR FIRST, THEN THE ERROR ORIGINALLY CALLED. | 
DITION, THE ¢ a 


AD EAD ROUTINE NOW CKS FOR A RANDOMLY 
BEFORE A “S IS TYPED. THIS BECAME NECESSARY WITH CERTAIN DATA 
CONNECTIONS OF SOME SYSTEMS. 


THE FOLLOWING WAS ADDED TO THE ‘D* VERSION: 


THE END-OF-PASS 9 ge Fy a NOW PRINTED EVERY 200 PASSES. THESE MESSAGES CAN 
BE DISABLED BY TYPING ANY KEY. THEY CAN BE REENABLED BY rats i TYPING ANY KEY 
THIS IS HELPFUL FOR OVERNIGHT RUNS ON HARD COPY TERMINALS. IT ALSO MAKES THE 
DIAGNOSTIC HARDWARE INTENSIVE INSTEAD OF TERMINAL INTENSIVE. 


ae 
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ABSTRACT 


THE THREE PROGRAMS: 
CKFPADO CKFPBCO CKFPCDO 


ARE DESIGN TO DETECT AND REPORT LOGIC FAULTS IN THE 
re 11/44 FP11-F FLOATING POINT a vateS min 


TESTS *S) AND ALL_THE 
LOGIC. THEY CONSIST OF 157 (OCT) INDIVIDUAL TES 
SEQUENCED TO DET TO IDENTIFY FAULTS 


H A MINIMUM HARDWARE OR SOFTWARE LEVEL. THE 
TS ARE PARTIONED INTO THREE STAND-ALONE PROGRAMS 
DESCRIBED BELOW. 


NOTE THAT ERROR REPORTS IN THESE PROGRAMS ARE BASED 
UPON THE KNOWLEDGE THAT ALL PREVIOUS TESTS HAVE BEEN 
RUN AND IN MOST CASE THAT THERE IS ONLY A_ SINGLE 
POINT FAULT IN THE FP11-F. THE PROGRAMS OR TESTS 
pry RUN IN ORDER THEN ERROR MESSAGES MAY NOT BE 


A. CKFPADO 

CKFPADO TESTS: 
LDFPS 
STFPS 


CFCC 

ae" SETD, SETI AND SETL 

LDF AND LDD (ALL SOURCE MODES) 

STD (MODE 0 AND 1) 

ADDF, ADDD AND SUBD (MOST CONDITIONS) 
B. CKFPBCO 
CKFPBCO TESTS: 


ADDF, ADDC AND SUBD (ALL CONDITIONS NOT 
TESTED IM CKFPBCO) 


CMPD AND CMPF 
DIVD AND DIVF 
MULD AND MULF 
MODD AND MODF 
C. CKFPCDO 
CKFPCDO TESTS: 
STF AND STD (ALL MODES) 
STCFD AND _STCDF 
CLRD AND CLRF 
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202 NEGF AND NEGD 
0 ABSF AND ABSD 
TSTF AND TSTD 
05 NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
06 NEGF. ABSF AND TSTF (ALL SOURCE MODES) 
LDFPS (ALL SOURCE MODES) 

08 LDCIF AND LOCLF 

09 LDCID AND LDCLD 

210 LDEXP 

211 STFPS (ALL DESTINATION MODES) 

212 STCFL AND STCFI 

4 STCDL AND STCDI 

14 STEXP 
315 

16 
317 

18 2. REQUIREMENTS 
219 (De Reb Om RE te Ks ote ie Oe => =D e> 
220 
$21 2.1 EQUIPMENT 

$6 A PDP 11/44 (WITH OR WITHOUT CONSOLE), LA30 (OR 
24 EQUIVALENT) AND AN FP11-F FLOATING POINT PROCESSOR. 
225 NOTE THAT A SPECIAL INTERRUPTS TEST MODULE IS BEING 
226 DESIGNED FOR USE IN MANUFACTURI 

227 WHEN THIS DEVICE IS PRESENT THE PROGRAM 

228 MAKE USE OF IT TO TEST THE FPP INTERRUPT ON BUS 
229 REQUEST FUNCTIONS. 
331 2.2 STORAGE 
$35 ALL THREE PROGRAM REQUIRE A MEMORY SYSTEM OF AT 
334 LEAST 16K TO LOAD AND RUN. 
236 2.3 PRELIMINARY PROGRAMS 
238 THESE THREE DIAGNOSTICS WILL ASSUME THAT THE PDP 
239 11/44 CENTRAL PROCESSOR IS FAULTLESS, THEREFORE WHEN 
240 IN DOUBT RUN THE PDP 11/44 PROCESSOR DIAGNOST!CS 
21 BEFORE THESE FP11-F DIAGNOSTICS. 
24 
244 3. LOADING PROCEDURE 


45 es 


24 THE PROGRAMS WILL BE SUPPLIED ON THE 11/44 
248 DIAGNOSTIC MEDIA. REFER TO THE XXDP OPERATING 
35 MANUAL FOR FURTHER INFORMATION. 

51 4 STARTING PROCEDURE 

252 wenn enna nnnn nna n n= 

354 4.1 CONTROL SWITCH SETTINGS 

256 SEE SECTION 5.1 

258 4.2 PROGRAM AND OPERATOR ACTION 
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259 ; 
60 Re LOAD PROGRAM INTO MEMORY 
61 ¢° LOAD ADDRESS 
6 ‘. SET CONSOLE SWITCHES (IF CONSOLE IS PRESENT) 
6 4. it Li 
64 ON FIRST PASS ib, PROGRAM 
65 ek IDENTIFY ITSELF. NOTE THAT IF THERE IS 
66 NO PHYSICAL CONSOLE THE PROGRAM WILL REQUEST 
267 THE MOPERATOR FOR INITIAL VALUE FOR THE 
268 SOFTWARE SWITCH REGISTER (SEE SECTION 8.5). 
$$? tae at UNDER ACT, APT OR CHAIN THIS DOES 
71 , THE PROGRAM WILL LOOP AND AN END OF PASS AND 
27 ERROR SUMMARY WILL BE TYPED AT THE END OF 
$7 EVERY PASS. 
sf $i OPERATING PROCEDURE 
27 
$f8 5.1 OPERATIONAL SWITCH SETTINGS 
$0 THE SWITCH SETTING ARE: 
28 OCTAL 
28 SW<15>=1... 100000 HALT ON ERROR 
284 SW<14>=1... 40000 LOOP ON CURRENT TEST 
285 SW<135>=1... 20000 INHIBIT ERROR TYPE OUTS 
286 SW<12>=1... 10000 INHIBIT T-BIT TRAPPING 
287 SW<11>=1... 4000 INHIBIT ITERATIONS 
288 SW<10>=1... 2000 RING TTY BEL 
289 SW<9>=1.... 1000 LOOP ON E 
90 SW<8>=1.... 400 LOOP ON _ SPECIFIED IN SW<6> 
1 — SW<0= 
29 SW<7>=1.... | 200 PRINT ERROK $$ SUMMARY EVEN IF 
29 SW<13>=1, THIS APPLIES ONLY TO 
294 PROGRAM CKF 
295 SW<7>=1.... 200 SELECT CORRECT INTERRUPT TEST IN 
296 PROGRAM CKF . IF APT IS SELECTING 
297 THE TEST, THE “SWITCH REGISTER IS 
298 EXAMINED TO SEE IF THE USER HAS 
299 SELECTED THIS TEST BY A <i> IN 
300 
301 
3 
6 ERRORS 
S05 
306 
307 6.1 SUMMARIES 
39 IN PROGRAM CKFPADO, TESTS 1 AND 11 HAVE / SPECIAL 
310 _ ERROR SUMMARY FEATURE. THESE TWO TEST RUN MANY 
$1 TEST PATTERNS THROUGH THE LOGIC. AFTER AN_ ERROR 
1¢ IS ENCOUNTERED ee THE FIRST FIVE ERRORS ARE 
1 REPORTED (TYPED ON THE TTY). auere “ar THOUGH 
14 IS LOGG ERROR Y ae TED WHEN 
315 THE TEST IS COMPLETE. NOTE THAT IF RuCl >=1 THIS 


ee 
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21$ SUMMARY WILL NOT BE TYPED UNLESS SW<7>=1. IN OTHER 

31 WORDS TO GET JUST OR Y FROM EITHER OF 

318 THESE TWO TESTS 1 AND WW IN PROGRAM CKFPADO BOTH 

213 SWITCHES 13 AND 7 MUST = 1. 

35) 6.2 ERROR RECOVERY 

3 5 SW<15:9>=0... MOST ERRORS WILL CAUSE EXECUTION T0 
& GO TO THE START ." THE NEXT yy 
5 AFTER THE MESSAGE IS TYPED. ." FEW 

32 TESTS ARE IN SECTIONS. _IN THESE 

32 TESTS AN ERROR WILL CAUSE EXECUTION 

328 TO GO TO THE NEXT SECTION AFTER THE 

$69 MESSAGE IS TYPED. 

331 SW<15>=1... THE PROGRAM WILL HALT AFTER TYPING 

33 THE ERROR MESSAGE. PRESSING THE 
3 CONSOLE CONTINUE WILL CAUSE THE 

$e PROGRAM 70 CONTINUE AS IF SW<15>=0. 

336 7. RESTRICTIONS 

SRF a 

338 

339 NONE 

340 

341 

342 8 MISCELLANEOUS 

rs 

344 

<2 8.1 EXECUTION TIMES 

4 LESS THAN 10 SECONDS FOR EACH PROGRAM ON ANY PASS. 

349 8.2 STACK POINTER 

351 THE STACK POINTER IS INITIALIZED TO 1100 IN EACH OF 

326 THE THREE PROGRAMS. 

$2¢ 8.3 PASS COUNT 

356 THE PROGRAM _ ONE PASS fae EACH END OF PASS 

357 MESSAGE TY F PASS MESSAGE DESCRIBES 

358 THE TOTAL NUMBER OF PASSES COMPLETED AND THE TOTAL 
59 NUMBER OF ERRORS SINCE THE LAST END OF PASS MESSAGE. 


8.4 T-BIT TRAPPING 
IF SW<12>=0 EACH PROGRAM WI 
ON EVERY OTHER PASS. fF 
TRACE TRAPS. NOTE SW<12>=1 
8.5 SOFTWARE SWITCH REGISTER 


~— OF THE THREE PROGRAMS WILL * aA OR WITHOUT 


RUN WITH TRACE _TRAPS 
T PASS WILL_NOT ENABLE 
SABLES T-BIT TRAPS. 


q 
RS 
DI 


SSSEFERS 


as 


3 S SWITCH REGISTER. IF A PHYSICAL CONSOLE 
371 SWITCH REGISTER IS PRESENT ON THE OYSTER THEN THESE 
372 PROGRAMS WILL GO AHEAD AND USE IT FOR THE SWITCH 


oe 
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8.6 


8.7 


FUNCTIONS DESCRIBED IN 5.1 ABOVE. IF HOWEVER THERE 
IS CONS a BAY REGISTER on Her3 sven 


XAMINED 
AT ANY TIME BY THE USER IF HE TYPES CONTROL G WHILE 
HE PROGRAM IS RUNN THIS CONTROL G WILL CAUSE 


THE PROGRAM WILL RES POIN 
WHICH IT LEFT OFF WHEN THE USER TYPED CONTROL G. 
NOTE THAT N NOT RUNNI CHAIN 
THE USER WILL BE ASKED FOR A SOFTWARE SWITCH 
REGISTER VALUE AFTER LOADING ADDRESS 200 AND 
STARTING THE PROGRAM THE FIRST TIME THE PROGRAM IS 
RUN AFTER LOADING (ONLY IF NO CONSCLE SWITCH 
REGISTER IS ON THE SYSTEM). 


INTERRUPTS TEST 


IN PROGRAM CKFPBCO, THERE IS A SPECIAL TEST FOR 
CHECKING THE CORRECT FLOWS OF THE FPP. THIS TEST 
CAN BE RUN ONLY IF A UL IN THE 
SYSTEM. THIS MODULE WILL PROBABLY ONLY BE USED IN 
MANUFACTURING. IF THIS MODULE IS NOT IN THE SYSTEM 
THIS TEST WILL AUTOMATICALLY BE DESELECTED. IF THIS 
TEST MOPULE IS ON THE SYSTEM AND SW<7>=0 THIS TEST 
WILL BE RUN. IF SwW<7>=1 THIS TEST WILL BE 
DESELECTED. 


ACT, APT AND XXDP COMPATIBILITY 
THESE = ARE FULLY COMPATIBLE WITH: 


ACT 
XXDP MONITOR AND CHAIN PROGRAMS. 


PROGRAM DESCRIPTION 


SEQUENCE 


eo 


8 


me eee — 
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430 

431 THIS IS A_ TEST OF THE ROUND\TRUNK_ FLOWS. IN 

4 PART TICULAR TWO THINGS ARE TESTED: FIRST A CONDITION 

4 IN WHICH ROUNDING RESUL N OR 

& RENORMALIZATION, AND SECOND THE PSW CONDITION CODES | 
2 5 N AND Z BIT COMMBINATIONS | 
ry A TEST 2 OVER\UNDER TEST 

439 


440 THIS IS A PARTIAL TEST OF THE OVER\UNDER FLOWS. ONE 
44) OVERFLOW AND TWO UNDERFLOW CONDITIONS ARE CHECKED. 


rk THE REMAINING UNDERFLOW COND. AND THE REMAINING 
44 OVERFLOW COND. WILL BE were LATER USING THE XXX 
44s INSTRUCTION. HERE EACH CONDITION TESTED IS CHECKED 
445 BOTH WITH TRAPS ENABLED (F Ay ot OR FIV=1) AND ALSO 
rr. WITH TRAPS DISABLED (FIU=0 OR FIV=0). 

“43 TEST 3 LDCFD AND LDCDF TEST 

450 

$35 THIS IS A TEST OF LDCFD AND LDCDF. 

453 TEST 4 CMPD TEST 

454 — en 

456 THIS IS A TEST OF THE CMPD INSTRUCTION. NOTE THAT 
457 SUBROUTINE IS USED TO SET UP OPERANDS, EXECUTE THE 
$28 INSTRUCTION AND CHECK THE RESULTS 

rr TEST 5 DIVD WITH (FSRC=0) AND (BUT FD) TEST 

46 

46 THIS IS A TEST OF THE DIVD INSTRUCTION WITH A_ ZERO 
464 DIVISOR. THE CONDITION IS CHECKED WITH BOTH TRAP 
rer ENABLED AND TRAPS DISABLED. 

467 TEST 6 DIVF TEST 

185 oS 2 we Sk oP ee OE Ge eos TY I On Ge OD 

470 THIS IS A TEST OF THE DIVF INSTRUCTION. NOTE THAT 
471 SUBROUTINE IS USED TO SET UP_THE OPERANDS, EXECUTE 
ri! THE INSTRUCTION AND CHECK THE RESULTS. 

474 TEST 7 DIVD TEST 

477 THIS IS A TEST OF THE DIVD INSTRUCTION. NOTE THAT 
478 SUBROUTINE IS USED TO SET UP THE OPERANDS. EXECUTE 
rt THE INSTRUCTION AND CHECK THE RESULTS. 

rt TEST 10 MULF TEST 

c3s THIS IS A TEST OF THE MULF es Kee IT MAKES 
4 USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 
485 THE MULF INSTRUCTION AND CHECK THE RESULTS. 
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TEST 11 


TEST 13 


TEST 15 


TEST 16 


MULD TEST 


THIS IS A_TEST OF THE MULD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE MULD INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MULF WITH TRAPS DISABLED, TEST 


THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW 
CONDITIONS USING THE MULF INSTRUCTION WITH TRAPS 
DISABLED. NOTE THAT A SUBROUTINE IS USED TO SET UP 
by. aa te” EXECUTE THE MULF INSTRUCTION AND CHECK 


UNDER\OVER FLOW, USING MULD WITH TRAPS DISABLED, TEST 


THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW 
CONDITIONS THAT CAN ARRISE USING THE MULD 
INSTRUCTION WITH TRAPS DISABLED. A SUBROUTINE IS 
USED TO SET UP THE OPERANDS, EXECUTE THE MULD 
INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MULF WITH TRAPS ENABLED, TEST 


THIS IS A TEST OF THE UNDERFLOW AND OVERFLOW 
CONDITIONS THAT CAN OCCUR USING THE MULF 
INSTRUCTION. A SUBROUTINE IS CALLED TO SET UP THE 
OPERANDS, EXECUTE THE MULF INSTRUCTION AND CHECK THE 
RESULTS. HERE THE PARTICULAR INTERRUPT, 
Naa OR UNDERFLOW, IS ENABLED SO A TRAP SHOULD 


UNDER\OVER FLOW, USING MULD WITH TRAPS ENABLED, TEST 





THIS IS A TEST OF THE OVER FLOW AND UNDER 
CONDITIONS USING THE MULD 
A SUBROUTINE IS USED 


ENABLED. SE 
cunts.’ EXECUTE THE MULD INSTRUCTION AND CHECK THE 


MODF TEST 


THIS IS A TEST OF THE MODF INSTRUCTION, WHICH MAKES 


USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 
THE MODF INSTRUCTION AND CHECK THE RESULTS. 


MODD TEST 


THIS IS A TEST OF THE MODD INSTRUCTION. IT 


MAKES 
USE OF A SUBROUTINE TO SET UP THE ARGUMENTS, EXECUTE 


FLOW 
INSTRUCTION WITH TRAPS 
TO T UP THE 


SEQUENCE 


-_ --- 


10 
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ane THE INSTRUCTION AND CHECK THE RESULTS. 

278 TEST 20 UNDER\OVER FLOW, USING MODF WITH TRAPS DISABLED, _TEST 
548 

549 THIS is A TEST OF THE MODF OVERFLOW AND UNDERFLOW 

550 CONDITIONS. IT MAKES USE OF A SUBROUTINE TO SETUP 


THE OPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK 
THE RESULTS. ' TRAPS ARE DISABLED DURING THIS TEST. 


TEST 21 UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST 


THIS IS A iy! OF THE MODD INSTRUCTION'S OVER FLOW 
AND . FLOW CONDITIONS. A SUBROUTINE IS USED TO 
SET UP THE OPERANDS, EXECUTE THE MODD INSTUCTION AND 
CHECK THE RESULTS. 


PAPAS 
a et tr 
WONOULS Wr 


5 

561 

20¢ TEST 22 INTERRUPT CORRECT FLOWS TEST 

564 

565 THIS IS A TEST OF THE ‘CORRECT’ FLOWS. THIS PART OF 
206 A 4 SaaT paket HAS AS _ ITS PURPOSE INSURING THAT 






QUESTS MADE —_— CERTAIN LENGTHY FPP 
DONE IN A WAY 


INTERRUPT 

INSTRUCTIONS at HONORED. THIS IS 

SUCH THAT IF AN INTERRUPT REQUEST OCCURS DURING 
OF THESE THE STATE 





INSTRUCTIONS OF THAT 
INSTRUCTION’S EXECUTION WILL BE THE SAME AS IF _ THAT 
INSTRUCTION HAD NEVER BEEN FETCHED AND ITS EXECUTION 





E 
NEVER STARTED. THUS THE MICRO CODE WILL RESTORE ALL 
vcs + Ege PI BACK UP THE PC AND LEAVE THE FPS AND ACO 


UNMODIFIED. 
THE INSTRUCTIONS FOR WHICH THIS IS NECESSARY ARE: 
ADD (OR SUB) 
DIV 


MOD 
(BOTH DOUBLE AND FLOATING) 
ALL_ADDRESSING MODES WILL BE 
EACH OF 







ae WITH THE ADDD 






INSTRUCTION. THEN THER_INSTRUCT 
WILL BE TRIED USI . T THIS TEST 
NEEDS A__ SPECIAL ERRUPT MODULE. WHICH WILL 
PR Y ONLY BE PRESENT IN DEC'S MANUFACTURING 
ENVIRONMENT, i = IS SPECIAL EQUIPMENT IS 
DESIGNED TO RAISE QUEST IN THE 





INTERRUPT RE 
PROCESSOR IF A BIT IS NSET IN_ITS STATUS REGISTER AND 
ONLY N AN INSTRUCTION IS _ENCOUNTE 








3s WHE PP RED. 
OE peaaen THIS TEST WILL ITIONALLY 

(DEPENDENT UPON WHETHER OR NOT THE STATUS REGISTER 

ik ees TIMES a WHEN tae carttn > 

WITCH REGISTER (PHYSICAL OR ) ON. 

THE TEST ASSUMES THAT STATUS 

599 REGISTER IS AT L 7774 ALL 
600 REFERENCES TO THIS LOCATION ARE MADE INDIRECT 
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601 THROUGH THIS PROGRAMS LOCATION CORINT, 7¥ THAT IF 
One THE USER HAS MODIFIED THE TEST STATUS 
60 re TO RESPOND TO A DIFFERENT ADDRESS weet HE 
604 CORINT MUST MADE 10 CONTAIN STATUS 
605 REGISTER’S NEW ADDRESS). THIS PROGRAM. AS S THAT 
606 THE TRAP VECT FOR T TEST EQUIPMENT IS_ 110. 
607 AGAIN NOTE THAT ALL REFERENCES TO THIS TRAP VECTOR 
608 ARE oe THROUGH TH - PROGRAM'S LOCATION CORTRP 
609 (IF .THE TEST EQUIPMENT IS TRAP TO A 
610 DIFFERENT VECTOR LOCATION CORTRP MUST CONTAIN THE 
ei) ADDRESS OF THIS VECTOR). 
618 
614 
616 
e17 
618 
619 

0 


10. LISTING 
g 


AKOn 
ROR 


N 
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624 000267 MNUMBER=267 
5 000002 PROGNUM=2 
‘ “LIST ME 
7 "NLIST MD 
628 "NLIST MC 
9 "NLIST CND 
G "NLIST ®EX 
164 "MCALL .HEADER,.SWRHI -EQUAT . . SETUP .SCATCH, .$ACT11,.$CMTAG 
1646 “MCALL NEWTST, SSNEWT EST, .SSAVE..S$TY 
1647 “MCALL .S$TYPD OWER. .SAPTHDR, .SAPTBLS 
1648 “MCALL SYP SAPTIPE.. 
1649 “MCALL EQUIV sREMOVE FOR PDP-10 ASSEMBLY 
1650 TITLE CKFPBCO FP11F FLTG PNT PRT B 
> COPYRIGHT (C) 1981 
; DIGITAL EQUIPMENT CORP. 
“*MAYNARD, MASS. 01754 
is 
S THIS PROGRAM WAS ASSEMBLED USING T THE PDP-11 MAINDEC SYSMAC 
: SPACKAGE (MAINDEC-11-DZQAC-C5), JAN, 1981. 
00000 éTN= =1 
, 160000 $SWR=160000 ::HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
1 
1 000244 FPVECT=244 
1 177400 $SWR=177400 
1 000200 $SWRMSK=200 
1 000011 TAB=11 
000015 CRLF=15 
1 .SBTTL BASIC DEFINITIONS 
;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 xe 
001100 STACK= 1100 
104000 ERROR=EMT 
000004 SCOPE=I0T 
; *MISCELLANEOUS DEFINITIONS 
000011 T= 11 : CODE FOR HORIZONTAL TAB 
000012 LF= 12 SS CODE FOR LINE FEED 
00001 CR= 15 33CODE FOR CARRIAGE RETURN 
000200 CRLF= 200 “CODE FOR CARRIAGE RETURN-LINE FEED 
177076 PS= 177776 « SPROCESSOR STATUS WORD 
177774 STKLMT= 177774 7s STACK LIMIT REGISTER 
177772 PIRQ= 177772 “PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 177570 3 S HARDWARE SWITCH REGISTER 
177570 DDISP= 177570 “HARDWARE DISPLAY REGISTER 
= GENERAL PURPOSE REGISTER DEFINITIONS 
000000 RO= 20 RAL TER © 
900001 R1= 21 TER 
é R2= 12 R 
R3= 13 ER 
R4= 14, ER 
5 R5= 25 ER 
R6= rt ER 
? R7= 47 TER 
000006 SP= %6 








CKFPBCO FP1 
BASIC DEFIN 


1F 
IT] 


FLTG PNT PRT B 
ONS 


000007 


sett 


gesees 
SSS 


ae 


233 
S35 


: 
S 


pale 


100000 
040000 


sssseses 
seecisseee 


oe 


ss 
ss 
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SEQUENCE 14 


PC= 47 -:PROGRAM COUNTER 
-*PRIORITY LEVEL DEFINITIONS 
PRO= 0 > :PRIORITY LEVEL 0 | 
PRi= 40 *:PRIORITY LEVEL 1 | 
PR2= 100 *:PRIORITY LEVEL 3 | 
PR3= 140 > PRIORITY LEVEL 
PR4= 200 *:PRIORITY LEVEL 4 
PRS5= 40 *:PRIORITY LEVEL 5 
PR6= 00 *:PRIORITY LEVEL 6 
PR7= 340 PRIORITY LEVEL 7 
:®' "SWITCH REGISTER’ SWITCH DEFINITIONS 
$w15= 100000 
Sw14= 40000 
Sw13= 20000 
Swi2= 10000 
SW11= 4000 
Sw10= 2000 
swo9= 1000 
swos= 400 
sw: iB 
swo5= 40 
sw04= 20 
swO3= 10 
SwO2= 4 
Swol= 2 
swoo= 1 

Sw9=SWO9 

Sw8=SW0 

SW =Su0 

Sw5=SW05 

=§ 

SWw3=SW03 

SW2=SWO02 

Swi =$W01 
-*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15= 1 
RITi4= 4 
81T13= 20000 
BITi2= 10000 
BIT11= 4000 
BIT10= 44 
BITO9= 190 
B1T08= 4 
BITO7= 200 
BIT06= 100 
BIT0S5= 40 
BIT04= 20 
BITO3= 10 
BITO2= 4 
BITOI= 2 
BITOO= 17 

BIT9=BIT09 

BIT8=BITO 

BIT7=B1T0 


——— 


TPVEC= 
PIRQVEC=240 
-SBTTL FPP REGI 


sagegeneieE 


a 
eh 


: *LOCATION 


aca eEe———e 
—_—_——— ee 


00017 
000174 800000 
000176 000000 


000200 000137 004346 
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attest IT0 
BIT5=B1TO 
BIT4=BI1T04 


BIT T00 
:*BASIC *’CPU'’ TRAP VECTOR ADDRESSES 
E ;TIME OUT AND OTHER ERRORS 
fa AND ILLEGAL INSTRUCTIONS 


HE SE FL PL FL VE FLT 
NOUS WI © 


-SBTTL TRAP CATCHER 
: *ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A **.+2,HALT"’ 
7 *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTER 
— 0 TO CATCH IMPROPERLY LOADED VECTORS 


:;SOFTWARE DISPLAY REGISTER 
7;SOFTWARE SWITCH REGISTER 


START ;;JUMP TO STARTING ADDRESS OF PROGRAM 


:"-WORD 0 


SWREG: D 
.SBTTL STARTING ADDRESS(ES) 
JMP av 





TRAP (BPT) 
| INPUT /OUTPUT TRAP (IOT) **SCOPE** 
ca TRAP (EMT) **ERROR** 
TRAP TRAP 
ETT PRINTER VECT 


OR 
“PROGRAM INTERRUPT REQUEST VECTOR 
STER DEFINITIONS 


SEQUENCE 15 
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COMMON TAGS 


1672 - SBTTL COMMON TAGS 

keke ReeeeReeRERERTEAAATTEAAAAAAAKEA AAA RAA TREE RATER RARER eee 
STHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN TH — 







001100 = | 

001100 SCMTAG: ;;START OF COMMON TAGS 
001100 000000 WORD 0 
001102 009 TSTNM: .BYTE 0 :CONTAINS THE TEST NUMBER 
0011 000 SERFLG: .BYTE 0 ;; CONTAINS ERROR FLAG 
001104 000000 SICNT: :WORD 0 CONTAINS SUBTEST ITERATION COUNT 
001106 000090 SLPADR: :WORD 0 SICONTAINS SCOPE LOOP ADDRESS 
001110 000000 SLPERR: :WORD 0 S: CONTAINS SCOPE RETURN FOR ERRORS 
001112 000009 SERTTL: :WORD 0 SI CONTAINS TOTAL ERRORS DETECTED 
001114 000 SITEMB: :BYTE 0 CONTAINS ITEM CONTROL BYTE 
001115 001 SERMAX: [BYTE 1 : CONTAINS S$ PER T 
001116 000000 SERRPC: :WORD 0 Z:CONTAINS PC OF LAST ERROR INSTRUCTION 
001120 000000 SGDADR: :WORD 0 ZI CONTAINS ADDRESS OF ‘GOOD' 
001122 000000 DADR: :WORD 0 >: CONTAINS $5, OF "BAD" DATA. 
901124 900000 SGDDAT: WORD 0 S: CONTAINS ! 
001126 000000 DAT: :WORD 0 ‘CONTAINS. "BAD* DATA 
001130 000000 “WORD 0 :ERESERVED--NOT TO BE USED 
001132 000000 “WORD 0 
001134 000 SAUTOB: :BYTE 0 ; ;AUTOMATIC MODE INDICATOR 
001135 000 SINTAG: .BYTE 0 : INTERRUPT MODE INDICATOR 
001136 000000 0 
001140 177570 SWR:  .WORD DSWR ; ADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP :SADDRESS OF DISPLAY REGISTER 
001144 177560 $TKS: 177560 ::TTY KBD STATUS 
001146 177562 $TKB: 177562 :TTY KBD BUFFER 
001150 177564 $TPS: 177564 iTTY PRINTER STATUS REG. ADDRESS 
001152 177566 $TPB: 177566 ::TTY PRINTER BUFFER 3 
001154 000 L: .BYTE 0 SE CONTAINS. NUL 
001155 2 SFILLS: :BYTE 2 330 
001156 012 SFILLC: .BYTE 12 333 FEED" 
001157 000 STPFLG: :BYTE 0 2 TERMI 
001160 SREGAD: 0 S CONTAINS. THE ADDRE 

Z:WHICH ($REGO) WAS OBTAINED 

000024 REPT = $CM3 

001162 000000 $REGO: WORD 0 ;:CONTAINS (($REGAD) +0) 
001164 000000 $SREG]: WORD 0 CONTAINS (($REGAD) +2) 
001166 000000 SREGe: WORD 0 SICONTAINS ((SREGAD) +4) 
001170 000000 $REGS: WORD 0 :: CONTAINS (($REGAD) +6) 
001172 000000 G4: :WORD 0 SICONTAINS (($REGAD) +10) 
001174 000000 $REGS: :WORD 0 ::CONTAINS (($REGAD) +12) 
001176 000000 EGG: .WORD 0 i SCONTAINS (($REGAD) +14) 
001200 000000 SREG7: WORD 0 CONTAINS ((S$REGAD)+16) 
001202 000000 $REGIO: :WORD 0 ::CONTAINS ¢ ($REGAD) +20) 
001204 $REG11: .WORD 0 CONTAINS (($REGAD)+22) 
001 SREGI¢: .WORD 0 CONTAINS (($REGAD) +24) 
00121 $REG13: .WORD 0 Zi CONTAINS (($REGAD) +26) 
001212 000000 SREGI4: .WORD 0 ZI CONTAINS (($REGAD) +30) 
001214 000000 $SREGIS: .WORD 0 SICONTAINS (($REGAD) +32) 
901216 000000 SREGIG: WORD 0 CONTAINS (($REGAD) +34) 
00122 SREGI7: .WORD 0 ZICONTAINS (($REGAD) +36) 
001222 000000 $REG20: :WORD 0 :CONTAINS (($REGAD) +49) 
001224 000000 $SREGO1: :WORD 0 CONTAINS (($REGAD) +42) 
001226 000000 SREG22: :WORD 0 SICONTAINS ((SREGAD) +44) 
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COMMON TAGS 



















001230 000000 $REG23: .WORD 0 CONTAINS (($REGAD) +46) | 
000024 "REPT 24 | 
001232 $TMPO: WORD 0 USER DEFINED 
001 $TMP1: WORD 0 SIUSER DEFINED | 
001 STMP2: WORD 0 "USER DEFINED 
901249 900000 STMPS: “WORD 0 SIUSER DEFINED | 
001242 000000 $TMP4: [WORD 0 STUSER DEFINED 
001244 000000 $TMPS: WORD 0 STUSER DEFINED 
1246 000000 STMP6: WORD 0 "USER DEFINED 
001259 000000 $TMP7: :WORD 0 S:USER DEFINED 
00125 STMP10: :WORD 0 "USER DEFINED 
001254 000009 $TMP11: :WORD 0 "USER DEFINED 
001256 000000 $TMP12: .WORD 0 "USER DEFINED 
001260 000000 $TMP13: .WORD 0 SSUSER DEFINED 
001262 000000 $TMP14: :WORD 0 : USER DEFINED 
001264 900000 $TMP15: :WORD 0 :SUSER DEFINED 
1266 900000 STMP16: .WORD 0 ::USER DEFINED 
001270 000000 $TMP17: .WORD 0 : USER DEFINED 
001272 000000 STMP20: .WORD 0 :;USER DEFINED 
001274 000000 $TMP21: :WORD 0 "USER DEFINED 
001276 000000 $TMP22: .WORD 0 ::USER DEFINED 
001300 000000 $TMP23: .WORD 0 : USER DEFINED 
001502 000000 S$TIMES: “MAX. NUMBER OF ITERATIONS 
001304 000000 SESCAPE :0 : TESCAPE ON ERROR ADDRESS 
001306 207 377 377 S$BELL: .ASCIZ  - Saleaaltaabeid : = CODE FOR BELL 
001312 = -077 SQUES: ‘ASCII TION 
001313 ~=—--015 SCRR: “ASCII <15> : CARRIAGE RETURN 
001314 012 000 $LF:  :ASCIZ_<12> FEED 
2'3 eeRREREEEERERERARAREREREEREREREARAEEERERERREREREEERERREREAREREE 
-SBTTL APT MAILBOX=ET 
{RARER AEEERERARRREREEEEEERERARAREREAREREREREERRARREEEEREEREEE 
001316 ;;APT MAILBOX 
001316 000000 AMSGTY ::MESSAGE TYPE CODE 
001320 000000 AFATAL ::FATAL ERROR NUMBER 
001322 000000 “WORD ATESTN ::TEST 
001324 000000 "WORD APASS  ;: PASS 
001326 000000 “WORD ADEVCT ;:DEVICE COUNT 
001330 000000 “WORD It 31/0 
001332 000000 “WORD GAD ::MESSAGE ADDRESS 
001334 000000 “WORD AMSGLG ::MESSAGE LENGTH 
001336 : APT ENVIRONMENT TABLE 
001336 000 BYTE AENV, — : SENVIRONMENT BYT 
001337 «000 AENVM ::ENVIRONMENT MODE BITS 
001340 000000 Ky ASUREG ::APT SWITCH REGISTER 
001342 000000 SUSWR: WORD AUSWR ;:USER SWITCHES 
001344 000000 : [WORD ACPUOP ::CPU TYPE,OPTIONS 
BITS 15-11=CPU TYPE 
11/04=01..11/05=02¢ 13/20=03,11/40=04,11/45=05 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT S8=MEMORY MANAGEMENT 
001346 000 S1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
001347 «000 : [BYTE AMTYPT ZiMeN. TYPE -BLkai 





PE 00 "Teoc cone _— 
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APT MAILBOX-ETABLE 


:* 300 NSE NSEC £ Biro. ARn00e 


; HIGH ADDRES 5 KA 
LAST ADDR.= BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 

73H HIGH AB DRESS M.S. BYTE 

PE .BLKA2 

; MEM. LAST “ADDRESS ,BLK#2 

HIGH ADDRESS.M.S.BYTE 


M.TYPE, 
: [MEM LAST ADDRESS BLK#3 
ADDRESS W.S.BYTE 


: MEM. LAST “ADDRESS ,BLKA4 
‘INTERRUPT VECTOR#1,BUS PRIORITY#1 
‘INTERRUPT VECTORA2BUS PRIORITY#2 
: :BASE ADDRESS OF FOULPMERT UNDER TEST 


ee 


ss 
—_> 
ww Ww 
wa Ww 

oO 














UNG 
MAA 
NO & 


FERS 


sma 





KREVNSRRVSARVOK 





segeesssssssees 


RE 
moO 


CKFPBCO FP11F FLTG PNT 
ERROR POINTER TABLE 


1676 
1678 


001442 


001442 
001452 
001462 
001472 
001502 
001512 
001522 
001532 
001542 
001552 
001562 
001572 
001602 
001612 
001622 
001632 
001642 
001652 
001662 
001672 
001702 
001712 


000267 
040514 
040546 
040602 
040707 
041014 
041121 
041226 
041333 
041440 
041547 
041656 
041772 
042104 
042216 
042313 
042370 
042422 
042454 
042535 
042612 
042710 
042775 


PRT B 


067106 
067176 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067237 
067106 
067312 
067401 
067106 
067106 
067106 
067106 
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071474 
071532 
071474 
071474 
071474 
071474 
071474 
071474 
071474 
071474 
071474 
071474 
071474 
071474 
071560 
071600 
071622 
071644 
071662 
071662 
071662 
071662 


s1TEM 27° 


.SBTTL ERROR POINTER TABLE 
ste TABLE CONTAINS THE INFORMATION FOR EACH — on CAN OCCUR. 


IN 
N THE TABLE IS PERTINENT. 

S (SERRPC). 
4 POINTERS EXPLAINED AS FOLLOWS: 
SSAGE 





THE INFORMATION IS OBTAINED BY USING THE I 
: *LOCATION SITES. THIS NUMBER INDICAT TEM IN 
> *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA 
* *NOTE2: EACH ITEM IN THE ate CONT 
°t EM +301 S$ TOT 
ste DH TS TO THE DATA 
st DT POINTS TO THE DATA 
-* F :;POINTS TO THE DATA FORMAT 
SERRTB: 
-REPT #MNUMBER 
: ITEM 1 
-WORD &M1,DH1,DT1,DF1 
s ITEM 2 
-WORD EM2,DH2,DT2,DF2 
s ITEM 3 
-WORD €EM3,DH3,DT3,DF3 
s ITEM 4 
-WORD £EM4,DH4,D14,DF4 
s ITEM 5 
-WORD EM5,DHS,DT5S.DF5 
s ITEM 6 
-WORD EM6,DH6,DT6,DF6 
: ITEM 7 
«WORD EM7,DH7,DT7,DF7 
s ITEM 10 
-WORD &M10,DH10,D1T10,DF10 
: ITEM 11 
s ITEM i2 
eWORD €EM12,DH12,DT12,DF12 
: ITEM 13 
-WORD &M13,0H13,DT13,DF13 
: ITEM 14 
eWORD £&M14,DH14,DT14,DF14 
: ITEM 15 
-WORD €&M15,DH15,DT15,DF15 
s ITEM 16 
-WORD £EM16,DH16,DT16.DF16 
: ITEM 17 
‘ EM17,DH17,0117,DF17 
s ITEM 20 
‘ EM20,DH20,0T20,DF 20 
s ITEM 21 
‘ EM21,DH21,DT21,DF 21 
s ITEM 22 
. EM22 ,DH22,DT22,DF 22 
: ITEM 23 
2 EM23,DH23,D07T23,DF 23 
s ITEM 24 
R EM24 ,DH24 ,DT24,DF 24 
: ITEM 25 
4 EM25,DH25,DT25,DF25 
s ITEM 26 
EM26 ,DH26,D126.DF 26 


SEQUENCE 19 


i 
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ERROR POINTER TABLE 


001722 042710 067106 071662 ITEM or ee EM27 ,DH27,DT27,DF27 
001732 043073 067106 071662 “ITEM 31° EM30 ,DH30,D130,DF 30 
001742 043145 067106 071662 -TTEM 32° EM31,DH31,D131,DF 31 
001752 042560 067106 071662 ITEM 33° EM32 ,DH32,DT32 ,DF 32 
001762 043212 067106 071662 “ITEM 36° EM33 ,.DH33,D133 DF 33 
001772 043235 067106 071662 ITEM 35° EM34 ,DH34 ,DT34 ,DF34 
002002 043267 067106 071662 ITEM 36° EM35 ,DH35 ,DT35 ,DF 35 
002012 043342 067106 071662 - ITEM 37° EM36 ,DH36 ,DT36,DF 36 
002022 043410 067106 071662 “ITEM 40° EM37 ,DH37 ,D137 ,DF37 
002032 043433 067106 071662 “ITEM 61° EM40,DH40,DT40,DF 40 
002042 043465 067106 071662 “ITEM 62° EM41,DH41,D141,DF41 
002052 043540 067106 071662 “ITEM 63° EM42 ,DH42 ,DT42 ,DF42 
002062 043671 067106 071662 ITEM 46° EM43 ,.DH43,,D143,DF43 
002072 044022 067106 071662 ITEM 65° EM44 ,DH44 ,DT44 ,DF44 
002102 044070 067106 071662 “ITEM 66° EM45 ,.DH45 ,DT45 ,DF45 
002112 044143 067106 071662 -ITEM 67° EM46 ,DH46.DT46,DF 46 
002122 044220 067106 071662 -ITEM 50° EM47 ,DH47 ,DT47 DF 47 
002132 044354 067106 071662 -ITEM 51° EM50,.DH50,DT50.DF50 
002142 044427 067106 071662 ITEM 52° EM51,DH51,DT51,DF51 
002152 044475 067106 071662 ITEM 53° EMS2 ,DH52 D152 ,DF52 
002162 052325 067106 071734 ITEM 56° EM53,DH53,D0153,DF53 
002172 052356 067106 071734 “ITEM 55° EMS4 .DH54 D154 ,DF54 
002202 052273 067106 071734 ITER 56" EM55 ,DH55 D155 ,DF55 
002212 052406 067106 071734 “ITEM 57° EM56 ,DH56,DT56,DF56 
002222 052477 067106 071734 “ITEM 60° EM57,DHS7,DT57,DF57 
002232 052567 067106 071734 ITER 61° EM60 ,DH60,DT60,DF 60 
002242 052671 067106 071734 ITEM 62° EM61,DH61,D161 ,DF61 
002252 053065 067106 071734 ITEM 63" EM62 ,DH62 ,DT62 DF 62 
002262 053261 067106 071734 -WORD EM62,DH63,DT63 DF 63 


002272 
002302 
002312 
002322 
002332 
002342 
002352 
002362 
002372 
002402 
002412 
002422 
002432 
002442 
002452 
002462 
002472 
002502 
002512 
002522 
002532 
002542 
002552 
002562 
002572 
002602 
002612 
002622 
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053372 
053511 
053624 
053673 
053756 
054007 
054037 
054037 
054071 
054200 
054271 
054361 
054471 
054554 
054750 
055144 
055256 
055423 
055532 
055641 
055750 
044565 
044642 
044720 
044776 
045055 
045133 
045212 





PRT B 


067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067166 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067447 
067447 
067447 


071734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
971734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071662 
071662 
071662 
071662 
072022 
072022 
072022 


s ITEM 64 


s ITEM 65° 
: ITEM 66° 
: ITEM 67° 


: ITEM 
: ITEM 
: ITEM 
: ITEM 
7 ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
7: ITEM 
ITEM 
: ITEM 
; ITEM 
7 ITEM 
: ITEM 
: ITEM 
: ITEM 
: ITEM 
7; ITEM 
: ITEM 
7 1TEM 
7 ITEM 
ITEM 
; ITEM 
: 1TEM 


70° 
71 
72. 
73 
74 


2 
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EM64 ,DH64 ,DT64 ,DF 64 
EM65 .DH65 ,DT65,DF 65 
EM66 ,DH66 D166, DF 66 
EM67 ,DH67 ,D167 ,DF67 
EM70,DH70,DT70,DF 70 
EM71,DH71,D171,DF71 
EM72,DH72,0172,DF72 
EM73,DH73,D173,DF 73 
EM74 ,DH74 ,DT74,DF74 
EM75 ,.DH75 ,DT75 ,DF75 
EM76 ,DH76,DT76,DF 76 
EM77 ,DH77 D177 ,DF77 
EM100,DH100,DT100,DF 100 
EM101,DH101,D1101 ,DF101 
EM102,DH102,0T102,DF 102 
EM103,DH103,.D1T103 DF 103 
EM104 ,DH104 ,DT104,DF104 
EM105,.DH105 ,.DT105 .DF105 
EM106.DH106 ,DT106,,DF 106 
EM107,.DH107 ,DT107,DF 107 
EM110,DH110,07110,DF110 
EM111,0H111,D7111,DF111 
EM112,DH112,DT112,DF112 
EM113,DH113,DT113,DF113 
EM114,0H114,DT114 ,DF114 
EM115,DH115,DT115,DF115 
EM116,DH116,D1116,DF116 
EM117,DH117,DT117,DF117 


SEQUENCE 


21 


ae - 


002632 
002642 
002652 
002662 
002672 
002702 
002712 
002722 
002732 
002742 
002752 
002762 
002772 
003002 
003012 
003022 
003032 
003042 
003052 
003062 
003072 
003102 
003112 
003122 
003132 
003142 
003152 
003162 
003172 
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045350 
045506 
045643 
046000 
046056 
046135 
046213 
046272 
046350 
046427 
046565 
046723 
047061 
047216 
047353 
047510 
047576 
044565 
044642 
047665 
047743 
050022 
050167 
050334 
050500 
050644 
050732 
046000 
046056 


PRT B 


067447 
067447 
067447 
067106 
067106 
067106 
067106 
067447 
067447 
067447 
067106 
067447 
067447 
067106 
067447 
067447 
067447 
067447 
067447 
067447 
067447 
067106 
067106 
067106 
067106 
067447 
067447 
067447 
067447 
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072022 
072022 
072022 
071662 
071662 
071662 
071662 
072022 
072022 
072022 
071662 
072022 
072022 
071662 
072022 
072022 
072022 
072022 
072022 
072022 
072022 
071662 
071662 
071662 
071662 
072022 
072022 
072022 
072022 


7; ITEM 
: ITEM 
; ITEM 
: ITEM 
: ITEM 
: ITEM 
: ITEM 
; ITEM 
7 ITEM 
ITEM 
s1TEM 
7 ITEM 
ITEM 
7 ITEM 
7 ITEM 
7 1TEM 
ITEM 
: ITEM 
: 1TEM 
: ITEM 
7 ITEM 
7 ITEM 
ITEM 
7 ITEM 
: ITEM 
: ITEM 
ITEM 


. WORD 
121 


151 
. WORD 
152 


WORD 
153 


, WOR 
; ITEM 154 


EM120,DH120,DT120,DF 120 
EM121,D0H121,DT121,DF 121 
EM122,DH122,07122,DF122 
EM123,DH123,D7T123,DF 123 
EM124 ,DH124 ,DT124 ,DF124 
EM125 ,DH125,DT125 ,DF125 
EM126,DH126,DT126,DF 126 
EM127,DH127,D1127 DF 127 
EM130,DH130,DT130,DF 130 
EM131 ,DH131,D7131,DF 131 
EM132,DH132,07132,DF 132 
EM133,0H133,DT133,DF 133 
EM134 ,DH134 ,DT134 DF 134 
EM135 ,.DH135 ,DT135 ,DF135 
EM136,DH136,D1136,DF 136 
EM137 .DH1357 01137 DF 137 
EM140,DH140,DT140,DF 140 
EM141 ,DH141,DT141 DF 141 
EM142,DH142,.D1142,DF 142 
EM143,DH143,.D1T143,DF 143 
EM144 ,DH144 ,DT144 ,DF144 
EM145 ,DH145,.DT145 DF 145 
EM146 ,.DH146,DT146 DF 146 
EM147,DH147,D1147 DF 147 
EM150,DH150,DT150.DF150 
EM151,DH151,DT151,DF151 
EM152,DH152 01152 .DF152 
EM153,DH153,D1153,DF153 
EM154 ,DH154,DT154 DF 154 


SEQUENCE 22 


et as 


K 2 
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003202 051021 067447 072022 wine HOR EM155,DH155,D1155 ,DF 155 
003212 051077 067447 072022 - ITER 159 EM156,DH156,D01156,DF 156 
003222 051156 067106 071662 - TER wa EM157,DH157,D1157,DF157 
003232 051323 067447 072022 - TER oi EM160,DH160,D1160.DF 160 
003242 051461 067106 071662 - Ten wa EM161,DH161,DT161 ,DF 161 
003252 051626 067106 071662 - TER wi EM162,DH162,D71162,DF 162 
003262 051772 067447 072022 ITER i EM163,DH163,D1163 ,DF 163 
003272 052127 067106 071662 ~ ITER ag EM164 ,DH164 ,DT164 ,DF 164 
003302 056060 067447 072076 178 ies EM165,DH165 ,DT165 ,DF 165 
003312 056144 067447 072076 ITER aad EM166,DH166,DT166,DF 166 
003322 056227 067447 072076 ITER a ae EM167,DH167 ,DT167 ,DF 167 
003332 056261 067447 072076 ITEM 173 EM170,DH170,DT170,DF170 
003342 056347 067447 072076 ~17ER 47 EM171,DH171,DT171 DF 171 
003352 056472 067447 072076 ITER ww EM172,DH172,DT172,DF 172 
003362 056557 067447 072076 -1T8R 17 EM173,DH173.D1T173,DF 173 
003372 056725 067447 072076 -sTe we EM174 ,DH174 ,.DT174 DF 174 
003402 057073 067447 072076 -sTen a aad EM175,DH175,DT175 ,DF175 
003412 057205 067447 072076 ITEM 177 EM176,DH176,DT176,DF 176 
003422 057271 067546 072164 -1TEM 208 EM177 ,DH177,D1177 ,DF177 
003432 057325 067447 072076 - STEM 201 EM200 ,DH200 ,.DT200 .DF 200 
003442 057357 067447 072076 -1TER 203 EM201 ,DH201,.DT201 ,DF 201 
003452 057446 067447 072076 17m 208 EM202 ,.DH202 ,.DT202 ,DF 202 
003462 057610 067447 072076 -1TEM 208 EM203,DH203,DT203 DF 203 
003472 057752 067447 072076 -1TER 208 EM204 ,DH204 ,DT204 ,DF 204 
003502 060040 067447 072076 - ITER 208 EM205 ,DH205 ,DT205 ,DF 205 
003512 060206 067447 072076 ITEM 207 EM206 ,DH206 ,DT206 DF 206 
003522 060354 067647 672174 Tem 218 EM207 ,DH207 ,DT207 ,DF 207 
003532 060416 067737 072246 ITER 211 EM210,DH210,DT210,DF210 


re eee — ae ee oe 


ee 
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003542 060460 067737 072174 + ITEM an EM211,DH211,D7211,DF 211 
003552 060624 067647 072270 “ITEM 213 EM212,DH212,DT212,DF212 
003562 061010 067647 072270 ITEM 214 EM213,DH213,D1213,DF213 
003572 061174 067647 072270 ITEM 215 EM214 ,DH214 ,DT214,DF214 
003602 061360 067647 072270 ITEM 216 EM215,DH215 ,DT215,DF215 
003612 061544 067737 072174 “ITEM 217 EM216,DH216,DT216,DF216 
003622 061726 070000 072352 “ITEM 220 EM217,DH217,DT217 ,DF217 
003632 061770 067607 072174 ITEM 22% EM220 ,DH220 ,DT220,DF 220 
003642 062220 067737 072174 “ITEM 223 EM221 ,DH221 ,DT221 ,DF221 
003652 062464 067607 072174 -1TER 228 EM222 ,DH222 ,DT222 ,DF 222 
003662 062715 067737 072174 -1TEM 224 EM223 ,DH223 ,DT223 ,DF 225 
003672 063162 067607 072174 “ITEM 225 EM224 ,DH224 ,DT224 DF 224 
003702 063413 067737 072174 -1TER 228 EM225 ,DH225 ,DT225 DF 225 
003712 063660 070053 072270 “ITEM 22? EM226 ,DH226,DT226,DF 226 
003722 064013 070142 072270 “ITEM 230 EM227 ,DH227 ,DT227 ,DF 227 
003732 064146 070053 072270 “ITEM 233 EM230 ,DH230 ,DT230 ,DF 230 
003742 064302 070142 072246 ITEM 233 EM231 ,DH231 ,DT231 ,DF 251 
003752 060416 070142 072174 “ITEM 233 EM232 ,DH232 .DT252,DF 252 
003762 064436 070231 072372 “ITEM 236 EM233 ,DH233 .D1233 .DF 233 
003772 064475 070272 072426 “ITEM 235 EM234 ,DH234 ,DT234 ,DF 234 
004002 064561 070360 072446 “ITEM 236 EM235 ,DH235 ,DT235 DF 235 
004012 064627 070420 072426 -ITEM 237 EM236 ,DH236 ,DT236 ,DF 236 
004022 064662 070272 072426 “ITEM 260 EM237 ,DH237 ,D1237 ,DF 237 
004032 064746 070506 072426 “ITEM 263 EM240 ,DH240,.D1240 ,DF 240 
004042 065002 070231 072372 “ITEM 263 EM241 ,DH241,DT241 .DF 241 
004052 065105 070506 072426 SITEM 268 EM242 ,DH242 ,DT242 DF 242 
004062 065141 070231 072372 ITEM 264 EM243 ,DH243,,DT243 .DF 243 
004072 065244 070231 072372 “ITEM 268 EM244 ,DH244 ,DT244 DF 244 
004102 065303 070231 072372 ~WORD €M245,DH245,DT245,DF 245 


mn 
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: ITEM 246 
004112 044175 067106 071662 anal EM246,DH246,DT246,DF 246 
004122 065365 070576 072460 ee ol EM247,DH247,D1247,DF 247 
004132 065421 070643 072476 pan asi EM250,DH250,DT250,DF 250 
004142 065453 070643 072476 id el EM251,DH251,D1251,DF251 
004152 065506 067176 072510 ie ost EM252,DH252,DT252,DF 252 
004162 065577 067106 072522 pan aad EM253,DH253,D1253,DF 253 
004172 065663 067106 072522 a ol EM254 ,DH254 ,DT254 DF 254 
004202 065750 067106 072522 pane ond EM255,DH255,D1255,DF 255 
004212 066036 067106 072522 pp al EM256,DH256,D1256 DF 256 
004222 066125 067106 072522 pees ol EM257,DH257,D1257,DF257 
004232 066213 067106 072522 vali sal EM260 ,DH260,DT260.,DF 260 
004242 066302 067106 072522 ales sill EM261,DH261,DT261 DF 261 
004252 066372 067106 072522 pans ve EM262 ,DH262,.D1262 DF 262 
004262 066463 067106 072522 os Gi EM263,DH263,D1263,DF 263 
004272 066550 067106 072522 ah pene EM264 ,DH264 .DT264 DF 264 
004302 066635 067106 072522 pre ca EM265 .DH265 .DT265 ,DF 265 
004312 066722 070703 072510 ania ae EM266 .DH266,D1266 DF 266 
004322 067023 067447 072076 ~ ; EM267 ,DH267 ,D1267 DF 267 
: 
1681 -SBTTL _ACT11 HOOKS 
SRARERERAAAAAAERARARERERAAARAAAAEAAAAAAEAARERARARERARARERAREKAERE EE 
*HOOKS REQUIRED BY ACT11__ 
004332 S$SVPC=. :SAVE PC 
000046 .=46 
000046 054024 SENDAD +:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 “WORD 0 ::2)SET LOC.52 TO ZERO 
bOe 332 .=$SVPC >: RESTORE P 
1682 | . SBTTL APT PARAMETER BLOCK 
SRRAEREREEREREARREEEAEEAAE AERA AAAAARARAAAAARAAAAAAARAAARAE REL ERS 
:SeT LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
SRRARERAERREREEARAAEAREEEEEREREAERAAAAARARARAREAAAAAAARERARARRE RES 
004332 .$X=.  3;SAVE CURRENT LOCATION 
000024 =24  3;3SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 :FOR APT ST 
0000%% 244 :SPOINT TO APT T NDIRECT ADDRESS PNTR. 
000044 004332 SAPTHOR *:POINT TO APT HEADER BLOCK 


: RESET LOCATION COUNTER 


a 


wee a ee 


N 2 
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CKFPBCO FP11F FLTG PNT PRT B SEQUENCE 26 
APT PARAMETER BLOCK 
: SAA AAAAAEAEAAAAAEAEAAREEEAAAAAEAREEREARAEEAEERAERAEEAREAAAAEEEEEE 
“SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
“INTERFACE SPEC. 
004332 SAPTHD: 
004332 000000 SHIBTS: .WORD 0 :TWO HIGH BITS OF 18 BIT “eee ADDR. 
004334 001316 SMBADR: _WORD $MAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 
004 000010 STSTM: .WORD 10 ;:RUN TIM OF LONGEST TEST 
004340 000040 SPASTM: .WORD 40 : ;RUN LB IN SECS. OF 1ST PASS YY 1 UNIT (QUICK VERIFY) 
004342 000000 SUNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
_ 004344 000052 . WORD G reno~-ehine? *>LENGTH MAILBOX-E TABLE (WORDS) 
1684 
1685 004346 START: 
“SBTTL INITIALIZE THE COMMON TAGS 
>>CLEAR THE COMMON TAGS (S$CMTAG) AREA 
004346 012706 001100 MOV #SCMTAG,R6 +FIRST LOCATION TO BE CLEARED 
004352 005026 CLR (R6)+ :;CLEAR MEMORY LOCATION 
004354 022706 001140 CMP #SWR.R6 3:D 
004360 001374 E <8 * ssLOOP BACK IF NO 
004362 012706 001100 MOV WSTA : SETUP THE STACK POINTER 
:: INITIALIZE A FEW NEC TOR 
004366 012737 034110 000020 MOV #SSCOPE a8 IOTVEC 2101 T VECTOR FOR SCOPE ROUTINE 
004374 012737 000340 000022 MOV #34 Pe af LOTVE 
004402 012737 034426 000030 MOV #SERROR ,@#EMTV vec’ samt VECTOR FOR ERROR ROUTINE 
004410 012737 000340 000032 MOV #340, a#EMTVEC+2 ::LEVEL 
004416 012737 036570 000034 MOV as] TRAP ,a#TRAPVEC : :TRAP VECTOR FOR TRAP CALLS 
004424 012737 000340 000036 MOV 0, a#TRAPVEC+2; LEVE 
004432 012737 036654 000024 MOV DN, a#PWRVEC ry se FAILURE VECTOR 
004440 012737 000340 000026 MOV #340, anPunvecs2 :sLEVEL 7 
004446 013737 033404 033372 MOV SEND OPCT  ::SETUP END-OF-PROGRAM COUNTER 
004454 005037 001302 CLR os ITERATIONS 
004460 005037 001304 CLR SESCAPE APE ON ERROR ADDRESS 
004464 112737 1 001115 MOV] ,SERMAX “ALLOW RROR PE 
ss INITIALIZE THE "T-BIT"' T VECTOR. THEN LOAD. LOCATION. " SRTRN, IN 
“END~OF -PASS'’ (SEOP) ROUTINE, WITH A RTI" OR ‘RIT’ 
004472 012737 034070 000014 MOV SSRTR N, a#TBITVEC s3SET T'' BIT VECTOR TO $RTRN 
004500 012737 000340 000016 mov = #340, nATBLTVEC SS ;;LEVEL 7 
004506 012737 000002 034070 MOV | SRTRN TO, A (RT 
004514 012737 004542 000010 MOV. #05. SARESVEC oy TO DOA 
004522 005046 CLR -(SP) :Duray Y PS 
004524 012746 004532 MOV #64$,-(SP) 
004530 000006 RTT “TRY THE R 
004532 012737 000006 034070 64$: MOV ARTT.SRTRN is TRY 1S LEGAL=-SET SRTRN TO A RTT 
004540 000402 BR 66s 
004542 062706 000010 65$: ADD T ILLEGAL =>CLEAN OFF THE STACK 
004546 012737 000012 000010 66$: MOV MRESVEC 2, amesvit; “RESTORE T RAP CA CHER 
004554 005037 034076 CLR $1B “LEAR “T’ BIT SWITCH 
004560 012737 004560 001106 MOV f.SLPADR ae THE LOOP ADDRESS FOR SCOPE 
004566 012737 004566 001110 MOV *SLPERR OR LOOP ADDRESS 
::SIZE FOR A HARDUARE SWITCH REGISTER. F NOT 
*:EQUAL TO A "=1'', SETUP FOR A SOFTWARE TWITCH REGISTER. 
004574 013746 MOV are RR RVEC,-(SP) ::SAVE ERROR VECTOR 
004600 012737 04634 000004 MOV #67$ SHERRVEC : SET UP ERROR VECTOR 
004606 012737 177570 001140 MOV #DSWR, SUR ZSETUP FOR A HARDWARE SWICH REGISTER 
004614 012737 177570 001142 MOV #DDISP.DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
004622 022777 177777 174310 CMP -1,aSWR "TRY TO REFERENCE HARDWARE SWR 
004630 001012 BNE : “BRANCH IF NO TIMEOUT TRAP OCCURRED 


ow = eee ee 
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SEQUENCE 


::AND THE HARDWARE SWR IS NOT = -1 
One 2 03 BR 68$ : ;BRANCH IF NO TIMEOUT 
4 1 0 004642 67S: MOV #68$, (SP) *:SET UP FOR TRAP RETURN 
004642 1 000176 001140 68$: MOV #SWREG, SWR ::POINT TO SOFTWARE SWR 
004650 612737 000174 001142 MOV #DISPREG, DISPLAY 
0046 1 ; 7 69$: MOV (SP)+,@MERRVEC ::RESTORE ERROR VECTOR 
oees 7 001324 CLR 33 PASS COUNT 
004666 132737 000200 001337 BITB $#APTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
004674 001403 BEQ >: YES,USE NON-APT SWITCH 
004 76 012737 001340 001140 a MOV #SSWREG, SWR "=NO,USE APT SWITCH REGISTER 
.SBTTL TYPE PROGRAM NAME 
>: TYPE THe NAME OF THE PROGRAM IF FIRST PASS 
004704 005227 177777 INC #~1 :sFIRST TIME? 
004710 001047 BNE 71$ * BRANCH IF NO 
004712 022737 034024 000042 CMP WSENDAD,@#42  ::ACT=11? 
004720 001443 EQ 71$ 33 H IF YES 
004722 104401 004770 TYPE 72$ *:TYPE ASCIZ STRING 
_SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
004726 005737 000042 TST ans2 : ARE WE RUNNING UNDER XXDP/ACT? 
004732 001012 BNE 73$ : sBRANCH IF 
004734 123727 001336 000001 CMPB sé SEN, #1 SARE WE RUNNING UNDER APT? 
004742 001406 BEQ > :BRANCH IF YE 
004744 023727 001140 000176 CMP SWR.ASWREG = SOFTWARE SWITCH REG SELECTED? 
004752 001005 BNE 74$ > :BRANC 
004754 104405 GTSWR *:GET SOFT-SWR SETTINGS 
004756 000403 BR 74$ 
004760 112737 000001 001134 738: MOVB  #1,$AUTOB ::SET AUTO-MODE INDICATOR 
004766 000420 BR 71$ --GET OVER THE ASCIZ 
anime 53728: “ASCIZ. <CRLF>*CKFPBCO FPI1F FLTG PNT PRT B*<CRLF> 
005030 104401 005036 TYPE 76$ :: TYPE ASCIZ STRING 
005034 5$ *:GET OVER THE ASCIZ 
are 55768: “ASCIZ {EOP MESSAGES WILL PRINT EVERY 2000 PASSES (15 SECONDS) !<CRLF> 
1688 005126 104401 005134 TYPE 78$ ::TYPE ASCIZ STRING 
005132 000426 BR 7$ -*GET OVER THE ASCIZ 
ontens 45788: “ASCIZ. ‘HIT ANY KEY TO DISABLE/ENABLE EOP MESSAGES!<CRLF> 
005210 005037 034104 CLR EPENDS :CLR EOP ENABLE/DISABLE FLAG = DPMO02 
690 005214 LOOP: 





CKFPBCO FP11F FLTG PNT 
TEST # 1 = ROUND\ TRUNK 


1703 


By 


005214 
1704 
Ke 
1707 oo3gle 
1708 905920 
1709 005224 
1710 005 $$ 
1711 005 
ie 005240 
1713 005242 
1714 00524 
1715 00525 
1716 0382 
1717 005256 
1718 005260 
1719 005 es 
1769 005270 
13) SaeH 
1953 005 
1769 005304 
1725 Ope 10 
17s6 5312 
175 005314 
138 Sea 
1730 005326 
1731 003330 
1738 005332 
1733 005334 
fe». 
i 
1737 
1738 
1739 005340 

005340 
1740 005342 
18 os 
1903 003350 
1744 OR 56 
1745 005 


— 

R 
woo 
WRRG 


one NN SN 
oS 
oO 


oo-o-—-0- 00" 
o=— 
aos 


Su 
wed od 
hy 
fons 
=—MNMmOoOo 
Ww a 


RVSVSSN sss 
REREIS SES 
SS SVS SS 


_ 
R 
Se 
_ 
WW 


we 2 


nd & 
Ww 
N 


ooo & 
S 


hb ad ad 





PRT B 
TEST 


003200 


005246 
006776 


007006 


006766 
007016 
000004 


043200 


005376 
006716 
007046 
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001236 


001236 
000244 


SEQUENCE 28 


ee ee _ 


. SBTTL TEST # 1 = ROUND\TRUNK TEST 


sR ERARER EERE RARE ERATE E RARER EERE EREE ER EREREEREE RR RER AER RE 


: TEST 1 ROUND\ TRUNK TEST 


ie THIS IS A TEST OF THE ROUND\TRUNK 
FLOWS. oo} ICULAR TWO THINGS ARE TESTED: 
FIRST A CONDITION IN WHICH ROUN 
RESULTS IN THE NEED FOR oa ee AND 
SECOND THE PSW CONDITION CODES N AN 
Z BIT COMMBINATIONS 
x 
1: 


RARER EEKEEEEEEEEEKEEEEEEKKEREERE 


SCOPE 
ROUND AND NORMALIZE TEST 


= te 
-* 
* te 
> te 
te 
+ te 
-s% 
ST 


T 


HH1: 
LPER :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #3200,R4 :SET FiU, F1V, AND FD 
LY AMH2, STMP2 
MOV #HHPO RO :SET ACO OPERAND 
LOD (RO) ACO 
MOV #HHP') RO :FSPC 

HH2:  ADDD (RO),ACO “TEST INSTRUCTION 
STFP 5 :GET FP 
MOV #HHDATO,RO “GET THE RESULT 
STD ACO, (RO) 
MOV #HHP 2 , :1S IT CORRECT 
MOV #4.R2 

HH3: CMP (RO) +, (R1)+ 
BEQ HH6 
MOV #HHDATO,RO :DID FLOW GO 
MOV #HHPS Ri “FROM STATE 663 
MOV #4.R2 :10 315 INSTEAD 

HH4: CMP (RO) +, (RI)+ 0 353 | 
BEQ HH5 
JMP HHERO 

HH5: $08 R2,HH4 
JMP HHER1 

HH6: S68 R2,HHS 
CMP R4.R5 :FPS CORRECT? 
BEQ ? 
JMP HHEROO 

;THIS IS A TEST OF THE ABILITY 
NORMALIZE TO PRODUCE A ZERO EXP. AND 

“OF THE R\T ALGORITHM TO PORPERLY SET THE FPS 

HH7: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #043200,R4 :SET FIU.FIV,AND FD 

LDFPS  R4 

MOV #HHB, STMP -IN CASE UNDERFLOW 
MOV WHHTRAP.FPVECT ;:TRAP OCCURS 
MOV #HHPS ,RO =SET ACO OPERAND 
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001236 


001236 
000244 


HH8: 


HH9: 


HH10: 


MP 
sTHIS IS A TEST 
:ABILITY TO SET 
HH11: 


HH12: 


HH13: 


HH14: 


HH15: 
HH16: 


LDD 


SEQUENCE 


(RO) ACO 
#HHP6 ,RO 
(RO) ,ACO 
rests 
#HHPS ,R1 
#4.R2 
(RO)+,(R1)+ 
HH10 

HHER2 
R2.HH9 
#160004 ,R4 
R4.R5 


FSPC 

:TEST INSTRUCTION 
:GET FPs 

:GET THE RESULT 
31S IT CORRECT 


sFPS CORRECT? 


HHERS 
OF THE R\T ALGORITHM'S 
BOTH N AND Z ON A = 0 RESULT. 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
:SET FIV, FIV, AND FD 
MOV #043200,R4 
LDFPS R64 
MOV #HH12,$TMP2 
MOV ‘ :SET ACO OPERAND 
LDD (RO) .ACO 
MOV ~RO :FSPC 
ADDD (RO), ACO “TEST INSTRUCTION 
STFPS R 3 FP 
MOV #HHDATO, RO “GET THE RESULT 
STD ACO, (ROS 
MOV #HHP7 R1 :IS IT CORRECT 
MOV #4.R2 
CMP (RO) +, (R1)+ 
BEQ 
MOV #HHDATO,RO 
MOV #HHPS RI 
MOV #4.R2 
CMP (RO) +, (R1)+ 
BEQ HH15 
JMP HHERG 
SOB R2,HH14 
JMP HHERS 
SOB R2,HH13 
BIS # 60914 ..R4 :FPS CORRECT? 
CMP R4.R 
BEQ HH17 
JMP HHER6 
TEST THAT CC ARE CLEARED BY R\T 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #00200,R4 :SET FIV. FIV, AND FD 
LDFPS R4 
MOV #HH18,STMP2 
MOV #FPSPUR,FPVECT 
MOV #HHPB RO :SET ACO OPERAND 
LDD (RO) ,AC 


29 | 


_ | 
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# 
yd O026 
is 8a 
iB Sees 
ie See 
1808 0056 
1809 005656 
1810 O20 
ii eae 
is Sse 
1814 005674 
1815 005676 
1si¢ 
1817 005702 

005702 

1818 005704 
1819 005710 
1s30 5712 
1821 005720 
1Ss6 005724 
1823 005726 
1824 0057 
1825 0057 
1826 005736 
1827 005742 
1828 005744 
1 005750 
1830 005754 
1831 005756 
1832 005760 
1833 005764 
1834 ors 
1835 005 
1836 005774 
1837 005776 
1838 2 
1839 


ee 


ES 
4200000 
~ 

=n 


a 
LAl— 
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g 
™ 
= 
Ww 


o—=0-00-0— 


SessSS25 
Lge 
2s VULVES 
Ww =f 4 

AVVNNN 


per ar Sar Saar 
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001236 


#HHPS ,RO 
 elaata 
#HHDATO ,RO 


STD ACO, (ROS 
MOV #HHP10,R1 


MO 
HH18: aren 












MOV #4.R 
HH19: CMP (RO) +, (R1)+ 
BEQ 
JMP HHER7 
HH20: $08 R2.HH19 
BIS #06000 .R4 
CMP R4OR 
BEQ 1 
JMP HHERB 
:TEST THAT N IS SET BY R\T 
HH21: 
LPERR 
MOV #3200,R4 
LDFPS 
MOV #HH22 , $STMP2 
MOV #HHPS .R 
LDD (RO) ACO 
MOV #HHPS .R 
HH22: ADDD  (RO),ACO 
STFPS R 
STD ACO anos 
MOV #HHP11,R1 
MOV #4.R2 
HH23: CMP (RO) +, (RI) 
BEQ HH24 
HH24: 0B 
CMP 
HH25: 
HHERO: 
1$: 
HHER1: 
MOV R5,STMP1 
R4,$TMP1 
#HHP'1 ,STMP3 
#HHDATO, $TMPS 
a HHP? . STAPG 





+ 
HHDONE 


;SET UP 


sFSPC 

“TEST INSTRUCTION 
“GET THE RESULT 
:1S IT CORRECT 


sFPS CORRECT? 


THE LOOP ON ERROR ADDRESS. 
;SET FIV, FIV, AND FD 


:SET ACO OPERAND 
2 FSPC 
—_——_- 
:GET THE RESULT 
31S IT CORRECT 


FPS CORRECT? 


SEQUENCE 


30 


EE 
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T 
ROUND \ 











RUNK TEST 
1841 0061 3 HHEROO: 
006122 010537 001252 MOV RS. $TMP10 
006126 010437 001254 MOV R4.$TMP11 
006132 012737 007 001240 MOV #HHP1,STMP3 
006140 012737 776 001242 MOV #HHPO, $TMP4 
006146 012737 766 001244 MOV #HHDATO, STMPS 
006154 012737 007016 001246 MOV #HHP2 , STMP6 
006162 104210 1$: ERROR + 
006164 000137 007136 JMP HHDONE 
1842 006170 HHER2: 
006170 010537 001252 MOV RS. $TMP10 
006174 010437 001254 MOV R4-STMP11 
012737 007056 001240 MOV #HHP6, STMP3 
06 012737 007046 001242 MOV #HHPS . STMP4 
14 012737 766 001244 MOV #HHDATO, $TMP5 
32 012737 007036 001246 MOV 4,$TMP 
006 104207 1$: ERROR +207 
2 000137 007136 JMP HHDONE 
1843 HHERS: 
006 010537 001252 MOV R5,$TMP10 
006242 010437 001254 MOV R4-$TMP11 
006246 012737 007056 601240 MOV JSTMP3 
54 012737 007046 001242 MOV WHHPS , STMP4 
006262 012737 766 001244 MOV #HHDATO, $TMPS 
006270 012737 007036 001246 MOV WHHPS , $TMP6 
006276 104214 1$: ERROR +214 
006 000137 007136 JMP 
1844 006304 HHER4: 
006304 010537 001252 RS. $TMP10 
006310 010437 001254 R4>$TMP11 
006314 012737 007106 001240 #HHPS, STMP3 
006322 012737 007076 001242 
006330 012737 006766 001244 #HHDATO, $TMPS 
006336 012737 007066 001246 7,$ 
006344 104207 1$: 
006346 000137 007136 
1845 006352 HHERS : 
006352 010537 001252 MOV RS. $TMP10 
006356 010437 001254 R4.S$TMP11 
006362 012737 007106 001240 
006370 012737 007076 001242 
006376 012737 006766 001244 
006404 012737 007066 001246 
006412 104216 1$: 
0064 14 000137 007136 
1846 HHER6G: 
006420 010537 001252 R5.$TMP10 
006424 010437 001254 MOV R4-S$TMP11 
0064 012737 007106 001240 MOV WHHPS , STMP3 
006436 012737 007076 001242 MOV #HHPB STMPS 
006444 012737 006766 001244 MOV #HHDATO, $TMPS 
006452 O12 137 007066 001246 a MOV #HHP p7 .SiMP6 
006462 000137 007136 JMP HHDONE 
1847 peeee 010537 001252 WHERT: wy RS. STP IO 
5064 6499 010437 001254 MOV RG $TMP11 
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# 1 = ROUND\TRUNK TEST 
006476 012737 007076 001240 MOV #HHPB TMP 
006504 012737 7076 001242 MOV #HHPB. STMP4 
00651 ot 737 66 001244 MOV #HHDATO, $TMPS 
0065 12737 116 001246 MOV #HHP10, $TMP6 
0065 104207 1$: ERROR +207 
006530 000137 007136 JMP HHDONE 
1848 0065 HHER8: 
0065 010537 001252 MOV RS. S$TMP10 
006540 010437 001254 MOV R4.$TMP11 
006544 012737 007076 001240 MOV 8, STMP3 
006552 012737 007076 001242 MOV 8° STMP4 
006560 012737 766 001244 MOV #HHDATO, $TMPS 
006566 012737 007116 001246 MOV 10, $TMP 
006574 104212 1$: ERROR +212 
006576 000137 007136 MP HHDONE 
1849 90660¢ HHER: 
006602 010537 001252 MOV R5,$TMP10 
006606 010437 001254 MOV R4.S$TMP11 
006612 012737 007046 001240 MOV #HHPS , STMP3 
006620 012737 007046 001242 MOV #HHPS . STMP4 
006626 012737 766 001244 MOV #HHDATO, $TMP5 
006634 012737 007126 001246 MOV #HHP11,$TMP6 
006642 104207 1$: ERROR 
006644 000137 007136 JMP 
1850 006650 HHER10: 
006650 010537 001252 MOV 
54 010437 001254 MOV 
012737 007046 001240 MOV 
012737 007046 001242 MOV 
006674 012737 006766 001244 MOV 
006702 012737 007126 001246 MOV 
006710 104213 1$: ERROR 
006712 000137 00 JMP 
851 006716 013703 601236 HHTRAP: MOV sWAS THE TRAP TO 264 
852 00672 062703 ADD 7O0N THE INSTRUCTION 
853 006726 020316 CMP “BEING TESTED? 
854 006 00140 BEQ 
855 006732 000137 037450 JMP FPSPUR 
856 006736 011637 001236 1$: MOV (SP) ,STMP2 :FAILURE OF FPS INTERRUPT 
857 *DISABLE BIT (FID=1) 
858 006742 022626 (SP)+,(SP)+ *TO INHIBIT TRAP. 
859 006744 170201 STFPS RI 
010137 001240 MOV R1,$TMP3 
170301 STST 
010137 001242 MOV R1 $TMPs 
104217 2$: ERROR +21 
000137 007136 JMP HHDONE 


HHDATO: 


SES t et tet 
SReSaaNSaRS NS 


SoRUR ARTS 


Be 


ce eee eee eee cee cee eee re cere ee eee eee eed eed ceed eed eed eed ee ed eed aed ed ed 


0 
0 
0 
0 
HHPO: , 
1 
} 
2 
1 


5 5 
Be Be ess 38 
872 00 12525 525 
873 00 e's SFE HHP'1 : é 
874 007010 125252 25252 


33 
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TEST # ¢@ = OVER\UNDER TEST 


— 


1933 .SBTTL TEST # 2 = OVER\UNDER TEST 
23 REA KCAEAAAEAEEEEEAEEEEEAEEEAEAEAEAAEAEKREEREKRAEKEEKEHAEAREARERERE 
:*TEST 2 OVER\UNDER TEST 
:STHIS 1S A PARTIAL TEST OF THE OVER\UNDER 
FLOWS. ONE OVERFLOW AND TwO RFLOW 
« SCONDITIONS ARE CHECKED. THE REMAIN i NG 
; *UNDERFL OW COND. MAINING OVERFLOW 
*COND. WILL BE CHECKED ME ATER USING TH 
:8XXX INSTRUCTION. HERE EACH CONDITION TESTED 
*1S CHECKED BOTH WITH TRAPS ENABLED 
«(FIU=1 OR FIV=1) AND ALSO WITH TRAPS 
:#DISABLED (FIU=0 OR FIV=0). 
PPE TTTTeTTTTTOTTCTTTTTTTTTTTT TTT iret er rrr tii Tr tir ttt tities 
_ 007140 000004 iiss" SCOPE 
1935 :TEST OVERFLOW CONDITION WITH TRAP DISABLER FIV=0 
1936 007142 661: 
007142 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1937 007144 012704 000200 MOV #200. R4 “CLEAR FIU, FIV, AND SET FD 
1938 007150 170104 LDFPS 
1939 007152 012737 007200 001236 MOV MP2 
1940 007160 012737 010232 000244 MOV nos, $1 FPVECT 
1941 007166 012700 012004 MOV #GGP5, :SET ACO OPERAND 
1948 007172 172410 LDD (RO) ACO 
1943 007174 012700 012004 MOV GPS RO FSRC 
1944 007200 172010 G62: ADDD  (RO),ACO “TEST INSTRUCTION 
1945 007202 170205 STFPS R ; 
1946 007204 012700 011734 MOV #GGDATO,RO “GET THE RESULT 
1947 007210 174010 STD ACO, (ROS 
1948 007212 012701 012014 MOV #GGP6,R1 :IS IT CORRECT 
1949 007216 012702 000004 MOV #4,R2 
1950 007222 022021 GG3: CMP (RO) +, (R1)+ 
1951 007224 00140 BEQ 664 
1958 007226 000137 010330 JMP GGER1 
1953 007232 077205 664: $0B R2,6G3 
1954 007234 052704 000006 BIS #6R4 :FPS CORRECT? 
1955 007240 02040 CMP R4.RS 
1956 007242 001402 BEQ 65 
1957 007244 000137 010376 JMP GGER2 
1958 =TEST OVERFLOW WITH TRAPS ENABLED 
1959 sFIV = 1 
1960 007250 GG5: 
007250 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1961 007252 012704 001200 MOV #1200,R4 “CLEAR FIU, SET FIV, AND FD 
196¢ 007256 170104 LDFPS R4 
1963 007260 012737 007306 001236 MOV #666, $TMP2 
1964 007 6 012737 007324 000244 MOV #GG7 .FPVECT 
1965 007274 012700 012004 MOV #ccPs, :SET ACO OPERAND 
1966 007 172410 LDD (RO) Aco 
1967 007302 012700 012004 MOV HGP -RO :FSPC 
1968 007306 172010 G66:  ADDD  (RO),ACO “TEST INSTRUCTION 
1969 00 19 17 CFCC 
1970 007312 012700 011734 MOV #GGDATO RO 
1971 007316 174010 STD ACO, (ROS 
1972 007320 000137 010444 JMP 
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EST #2 - 
1973 007324 


- 
SN 
Wise 
S 
Oy 
ERSESSEES & 


SRO 
oo-0o-00O 


sescecccccccccece 


~ 

REQ 
ed aed 
ny 


cee ce ee ee ee et ee we ee ed ee ed eed eed ceed ceed eed ed ed — 
sss 8S 
~~ U™S 
~ 
Nm 
= 


SESESSPSSSBSSSSSS RES L SSeS 


2010 007476 
2011 007500 
7504 
007506 


3 
SS 


013703 
703 


age 


S 


Ses 


—_ 
4 
od 
aA 


Sy 
S823 


PA pe ee pe 
oOo 
LVLSSAS 


re he mA 
Q 


cxrrece FP11F FLTG PNT PRT B 
OVER\UNDER TEST 


010514 


011734 
012014 
000004 


010726 
000004 


010774 


002200 


J 
MACRO M1113 20-OCT-81 08:27 PAGE 10-1 


001236 
000244 


GG7: 


18: 


GG8: 


GG9: 


1$: MOV 
sCHECK FEC 
STST 


GG11: 


GG12: 


GG13: 


GG14: 





SEQUENCE 


MOV at RS 


ADD 
CMP R3. (SP) 
BEQ 13° 
JMP FPSPUR 
MOV (SP) ,$TMP2 
CMP ( P)+,(SP)+ 
STFPS 
V AGGDATOR :GET THE RESULT 
STD ROS 
MOV Meebo R :1S IT CORRECT 
MOV #4,R 
CMP HR anys 
BEQ G69 
JMP GGER4 
S0B R2 GG8 
BIS #100006,R4 
CMP 4,R5 :FPS CORRECT? 
BEQ 1$ 
JMP GGER6 
#10,R4 
RS 
CMP R4.RS 
BEG 6610 
RS 


GGE 
; CHECK UNDER FLOW CONDITION WITH 
: TRAPS DISABLED (FIU = 0) 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #0200,R4 [SET FIU, FIV, AND FD 
LDFPS R 
MOV #6611,$TMP2 
MOV #GGER? ,FPVECT 
MOV :SET ACO OPERAND 
LDD (RO) AC “FSRC 
(R0) ACO sTEST INSTRUCTION 
eons” “GET THE RESULT 
mGobe, 21S IT CORRECT 
(Roos. (RI)* 
6613 


sFPS CORRECT? 





JMP GGERY 
CHECK UNDERFLOW CONDITION WITH 
;TRAP ENABLED (FIU = 1) 


LPERR ;SET 
MOV #2200 ,R4 SET FIU 
LDFPS R4 


UP THE LOOP ERROR ADDRESS. 
. FIV, AND FD 
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site 
Si 
011764 


011734 


011042 
001236 
000002 


037450 
001236 


011734 
012024 
000004 


011110 
100000 


011156 © 


000012 
001272 


000200 
007770 
011272 
011754 


012034 


011734 
012014 
000004 
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001236 
000244 


001236 
000244 


GG15: 


GG16: 


18: 


GG17: 


GG18: 


2$: 


1$: MOV 
sCHECK FEC 
STST 


JMP 
; CHECK UNDERFLOW 
sDISABLED (FIU = 
GG19: 


GG20: 


GG21: 


CMP 
BEQ 


LPERR 
LDFPS 


#GG15 ,STMP2 


#0616, FPVECT 


(RO) ACO 
#GGP3,RO 
(RO) ,ACO 
#GGDATO,RO 
ACO, (ROS 
GGER10 
STMP2 RS 
#2,R 

(SP) ,R3 

1$ 

FPSPUR __ 
(SP) ,STMP2 
— 
#GGDATO,RO 
ACO, (ROS 
#GGP7,R1 

g 

(RO) +, (R1)+ 


GG18 
GGER11 


#160000,R4 
R4 RS 
GGER12 
#12.R4 

RS 


R4.RS 
6G19 


#0200 ,R4 
R4 
#G 


#GGP2, 
(RO) At 
acoPe AR 
R ),AC 
#OGDATO RO 
ACO, (ROS 
#GGP6,R1 


#4 OR 
a d+, (R1)+ 
GGER15 


@GGER13 
— WITH 


G20, $STMP2 
#GGER14 .FPVECT 


SEQUENCE 


;SET ACO OPERAND 
;FSPC 


;TEST INSTRUCTION 


GET FPS 
:GET THE RESULT 
:1S IT CORRECT 


sFPS CORRECT? 


TRAPS 


;SET UP THE LOOP ON ERROR ADDRESS. 
SET FIU, FIV, AND FD 


:SET ACO OPERAND 


sFSPC 

: TEST INSTRUCTION 
“GET THE RESULT 
:IS 17 CORRECT 


36 





creas FP11¢ FLTG PNT PRT B MACRO M1113 20-OCT-81 08:27 PAGE 0-3 SEQUENCE 37 
T # 2 = OVER\UNDER TEST 


010022 07 77205 6622: $08 R2,GG21 

1 BIS #4°RG :FPS CORRECT? 
0100 036405 CMP R4-RS 

0100 oe BEQ 6623 

0100 011436 JMP GGER16 





hae FPI11F FLTG PNT PRT B 
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——— ——— se 
- ee a ne er a ee a ee 


tilda 


ss 
010040 
4 0 
aps Sis 
1 
10050 
1 
1 
100 
100 01007 
1 10076 
1 10100 
103 010102 
104 ote te 
105 01011 
2106 010114 
2107 010120 
$166 10124 
1 10126 
sii 444: 
111 010134 
sii¢ 010140 
2113 010142 
site 010144 
115 010150 
$113 A SES: 
117 010156 
2118 010162 
2119 010164 
2120 O18 198 
4 1 01017 
1 4 Abate 
4 01 $09 
124 010202 
2125 46. 
21 $ 10210 
21 
2128 010214 
se iis 
4 1 010 5 
4 010226 
8 on 
1 1 
1 1 
1 1 
1 1 
140 01 
141 Q1 
166 1 
143 01 
144 Q1 
145 01 
Ps 1 
2147 01 
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CKFPBCO FPIIF FLTG PNT PRT B 
TEST «# 2 = OVER\UNDER TEST 


002200 
010076 
010114 
011754 


012034 
011734 
011504 
007236 
(00002 


037450 
001236 


011734 
012044 
000004 
011552 
100004 
011666 
000012 


011620 
012054 
001236 
000002 
037450 
000010 


011734 


012004 001240 


N 3 
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GG23: 


GG24: 


GG25: 


1$: 


GG26: 


GG27: 


1$: 


ENABLED (FIU = 1) 


LPERR 
MOV #2200,R4 
LDFPS R4 

MOV #6624, STMP2 
MOV #6625, FPVECT 
MOV #GGP2,R 

LDD (RO) ACO 
MOV #GGP8,RO 
ADDD _—— (RO) ,ACO 
CFCC 

MOV #GGDATO,RO 
STD ACO, (RO) 
JMP GGER17 

MOV $TMP2,RO 
ADD #2, 

CMP RO, (SP) 

BEQ 1$ 

JMP FPSPUR 

MOV (SP) ,STMP2 
CMP (SP)+, (SP)+ 
STFPS R 

MOV #GGDATO,RO 
STD ACO, (RO) 
MOV #GGP9,R1 
MOV #4 R2 

CMP (RO)+, (R1)+ 
BEQ 6627 

JMP GGER18 

$08 R2 6626 
BIS #100004 .R4 
CMP R4,R5 

BEQ 1$ 

JMP GGER20 

MOV #12,R4 
=CHECK FEC. 

STST = RS 

CMP R4.R5 

BEQ 6628 

JMP GGER19 

JMP GGDONE 

MOV STMP2,R1 
ADD #2, 

CMP R1. (SP) 

BEO 10$ 

JMP FPSPUR 

STST RT 

CMP R1,410 

BNE ¢ 

CMP (SP)+, (SP)+ 
MOV #GGDATO,RO 
STD ACO, (ROS 
MOV #GGP5 ,STMP3 


——— ae 


SEQUENCE 


UP THE LOOP y+ we ADDRESS. 


7 SET 
sSET FIU, FIV, AND 


;SET ACO OPERAND 


3s FSRC 
: TEST INSTRUCTION 


GET FPS 
;GET THE RESULT 
:1S IT CORRECT 


sFPS CORRECT? 


39 


— — —_ 


40 


SEQUENCE 


1$: 


4 
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GGER1: 


CKFPBCO FPT1F FLTG PNT PRT B 
TEST # 2 = OVER\UNDER TEST 


w 
mas EO 
aaa 

Or H#= 
a as 
26222" 

Zz =e oe = Ww 
— NWN TO <= 
BA $3 ~ 

. o a 
As OVUUUNY 
aoe SSS SR 


1$: 


ee UE CU 
SS5505 


pb tb 


we <= wT 
ww re OW 
we Ko oO 
™N 
Saal 
oO 


SBSSSIIEN 


GGER2: 


STMP10 


R5 


242 
244 
2014 001246 - 


2 
4 
004 0017 


1734 001 


he 


ooo°o°eo-r 


LLSS=NMMS 


Oooo0o0o0oco 


COoQooeooe°oo 


GGER3: 


wrwro-w 2) 
TF TMMNOR KR 
333SSSSSS 


COoooo°oeoo 





Fa 

ms £0 
Ta ce 
3 
Hascsas 
OeLeee 


ee 
A 
= 


oooe0eeer 


MnAew 


GGER1 


GGER4: 
GGERS: 


010512 000706 






STMP4 
0, $TMPS 
STMP6 


+236.” 


t 





RS, STMP10 
R4 

J 

#GGDA 





Oo = 

Sh se aoe 

Saunon | 
LN = 
anscaans 
yb 24+ + 
QG@eewBRRe + 





1$: 


Ooooo°oe°er 


wrowruowowro 
ee CUCU TT 
MMMAAMAIAAWN 
Sooooooeoo oo°oo 
CP SO SE FE FOE LE of = FF FO EE FE ee 


COCOOGSCOCSO OOOOO°OOo°oO 


eo 
= 
ise) 
ee] 
© 


Bae 


Soooo°eoer 


wus 


Bes 





Tc 


C 4 
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CKFPBCO FPIIF FL 
TEST # 2 = OVER\UNDER TEST 
160 
161 010630 13701 001236 GGER7: MOV $TMP2,R1 
168 o1 701 000002 _ ADD #2,R 
16 10640 02011 CMP R1. (SP) 
164 01 14 BEQ 10$ 
165 010644 137 037450 S$: JMP FPSPUR 
166 1 3 10$: 
16 1 170301 STST R1 
168 010652 020127 000012 CMP R1,412 
2169 010656 001372 BNE 
21 01 02 626 CMP (SP)+, (SP)+ 
171 01 012700 011734 MOV #GGDATO,RO 
e172 01 174010 STD ACO, (ROS 
173 010670 012737 011764 001240 MOV #GGP3,$TMP3 
010676 012737 011754 001242 MOV 2 4 
010704 01 037 011734 001244 MOV #GGDATO, $TMPS 
010712 012737 012014 001246 MOV #GGP6, STMP6 
010720 104284 1$: ERROR +224 
ins 010722 000137 012054 JMP GGDONE 
2175 010726 GGERS: 
010726 010537 001252 MOV RS, $TMP10 
010 010437 001254 MOV R4.$TMP11 
010736 012737 011764 001240 MOV 
010744 012737 011754 001242 MOV 4GGP2,$STMP4 
010752 012737 011734 001244 MOV #GGDATO, STMP5 
010760 012737 012014 001246 MOV #GGP6,STMP6 
010766 104207 1$: ERROR +207 
_ 010770 000137 012054 JMP GGDONE 
2177 010774 GGERY: 
010774 010537 001252 
011000 010437 001254 
011004 012737 011764 001240 
011012 012737 011754 001242 
011020 012737 011734 001244 
011026 012737 012014 001246 
011034 104232 1$: 
ons 011036 000137 012054 
2179 011042 GGER10: 
011042 010537 001252 mo RS. S$TMP10 
011046 010437 001254 RG. $TMP11 
011052 012737 011764 001240 #GGP3,STMP3 
011 012737 011754 001242 #GGP2,STMP4 
011066 012737 011734 001244 #GGDATO, STMPS 
011074 012737 012024 001246 gp7 . STRAPS 
011102 104285 1$: +225 
_ 011104 000137 012054 GGDONE 
2181 011110 GGER11: 
011110 010537 001252 MOV RS, $TMP10 
011114 010437 001254 MOV R4.$TMP11 
011120 012737 011764 001240 MOV #GGP3,STMP3 
011126 012737 011754 001242 MOV # 
0117 012737 011734 001244 MOV #GGDATO, $TMPS 
011142 012737 012024 001246 MOV #GGP7 , STMP6 





nm————  —-— —— 


D 4 
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TEST # 2 = OVER\UNDER TEST 


== ad 
ww 
mo 
—_ 
™~m 
™~ 


1$: ERROR +207 
JMP 








011 
; 011 000137 012054 GGDONE 
$18 011156 GGER12: 
011156 010537 001252 MOV RS,$TMP10 
011162 010437 001254 MOV R4.$TMP11 
011166 012737 011764 001240 MOV #GGP3,STMP3 
011174 012737 011754 001242 MOV #GGP2,$TMP4 
011202 012737 011734 001244 MOV #GGDATO, $TMP5S 
011210 01 237 012024 001246 MOV #gGP7 .STAPC 
011216 104231 1$: ERROR 1 
_ 011220 000137 012054 JMP GGDONE 
2185 011224 GGER13: 
011224 010537 001252 MOV 
011 010437 001254 MOV 
011234 012737 011764 001240 MOV 
011 42 012737 011754 001242 MOV 
01125 012737 011734 001244 MOV 
011256 012737 012024 001246 MOV 
011264 104230 1$: ERROR 
on 011266 000137 012054 JMP 
2187 011272 013701 001236 GGER14: MOV STMP2,R1 
2188 011276 062701 000002 ADD j 
2189 011302 020116 CMP R1. (SP) 
2190 011304 001402 BEQ $ 
2191 011306 000137 037450 5$: JMP FPSPUR 
219¢ 011312 10$: 
2193 011312 170301 STST RT 
2194 011314 020127 000012 CMP R1,412 
2195 011320 001372 5 
219 011322 022626 CMP (SP)+, (SP)+ 
2197 011326 012700 011734 MOV #GGDATO RO 
2198 011330 174010 STD ACO, (ROS 
2200 011332 012737 011744 001240 MOV #GGP1,STMP3 
011340 012737 011764 001242 MOV #GGP3,$STMP4 
011346 012737 011734 00124 MOV #GGDATO, $TMP5 
011354 012737 012014 001246 MOV #GGP6,$T 
011362 104082 1$: ERROR +222 
po 011364 000137 012054 JMP GGDONE 
2202 011370 GGER15: 
011370 010537 001252 MOV 
011374 010437 001254 MOV 
011400 012737 011754 001240 MOV 
011406 012737 012034 001242 MOV 
011414 012737 011734 001244 MOV 
011482 012737 012014 001246 MOV 
011430 104207 1$: ERROR 
_ 011432 000137 012054 JMP 
2204 011436 GGER16: 
011436 010537 001252 MOV RS,$TMP10 
011442 010437 001254 MOV R4.$TMP11 
011446 012737 011754 001240 MOV #GGP2,STMP3 


| 





43 


SEQUENCE 


4 
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TEST # 2 - OVER\UNDER TEST 


Ea ee ce 
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CKFPBCO FP11F FLTG PNT PRT 8 
TEST # 2 = OVER\UNDER TEST 






GGP3: 


GGP4: 


GGP5: 


GGP6: 


GGP7: 


GGP8: 


GGP9: 


GGDONE : 


F 4 
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oS 
So 


NOOO -OOnNoo 


2400 


WOoooe GOOOCo°o°oo 


. 
= 


oOoo—-ooo 
S 


RSETUP 


SEQUENCE 


OVER FLOW = GGP5 + GGP5 


; OVERFLOW me 


L 
sUNDERFLOW RESULT 
:GGP6 = GGP4 + GGP5 
3 ° GGP3 + GGP2 (FIU = 0) 


; GGP5 + 
:GGP7 = GGP3 + GGP2 (FIU = 1) 


:G0 INITIALIZE THE FPS AND STACK; AND 
; F THE USER EXPRESSED 


; HAS 

;THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 





ou 


oe FPIIF F 
#3 - LOCF 


2264 


SSSRREE 


au 
~_N UES &SWWNNNN 


mn 
™m 
~ 
wi 


rmnrnnr 
SNN 
cnOo 


r4 
2299 o13 
$300 22 
301 012226 
$305 012230 
5 o 012234 
7 307 019942 
309 012250 

2310 
2311 012252 


LTG PNT PRT B 
D AND LDcDF TEST 
000004 
104413 
012704 000200 
170104 
012700 013474 
172410 

2700 013504 
012737 012110 
177420 
020027 013510 
00140 
000137 013052 
170603 
012700 013464 
174010 
012701 013554 
072702 000004 
022120 
001415 
012701 013504 
012700 013464 
012702 
022120 
goees 
000137 013112 
077205 
000137 013142 
077220 

12704 000200 
020405 
00140 
0001 013210 
104413 
012704 000200 
170104 
012700 013474 
172410 
01509 013504 
012737 012252 
170001 
177420 


G 4 
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001236 


001236 


- SBTTL TEST # 3 = LDCFD AND LDCDF TEST 
OTT tlie tii iti ii titi iiil iti iii D 


:#TEST 3 LDCFD AND LDCDF TEST 
: *THIS IS A TEST OF LOCFD AND LDCDF. 


- sinh rne ha aaeeenaseneereresrtesneEeNeseneereneeees 


if 3: SCOPE 
TEST FOR CORRECT AUTO INCREMENT CONSTANT. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
#200,R4 
UDFPS R4 
V #HXP1,RO 
LDD (RO) ACO 
V #HXPS RO 
MOV #HX2, $TMP2 
HX2:  LDCFD (RO) + ACO . 
CMP RO, MHKP2+4 :1S RO CORRECT 
BEQ Hx 
JMP HXER1 
HX3: 
STFPS R sGET FPS 
V #HXDATO,RO 
STD ACO, (ROS :GET ACO 
MOV HHXP7 , “SEE IF RESULT IS 
MOV #4,R2 * CORRECT 
HxX4: CMP {Rid >, (RODS 
BEQ HX7 
MOV #HXP2,R1 :DID FD GET 
MOV #HXDATO,RO > COMPLIMENTED? 
MOV 4,R2 
HXS: CMP (R1)+, (RO)+ 
BEQ HX6 
JMP HXER2 
HX6 SOB R2,HX5S 
JMP HXER3 
HX? S08 R2.HX4 
MOV #200.R4 :FPS CORRECT? 
CMP § 
BEQ HX 
JMP HXER8 
iNOW TEST  LDCDF 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #200,R4 
LDFPS R4 
MOV 1,R0 
LDD {ROD . ACO 
MOV #HXP2 RO 
MOV #HX9, $TMP2 
SETF 
HX9: LDCDF (RO)+,ACO : TEST INSTRUCTION 





SEQUENCE 


45 


rororonet 
St So OS 


OONAUS Ww 


NAG 


oo 
WINANS 
- NO 


WANG 
ENSRS 


MIMININMINININ PoP nonoponospnonsnnny 
reat 
VEWN = 


WG 
AEWA OD 

eS 

NO 


2351 0 
$32$ 012412 
235 AE aR 


2361 012444 
012444 


236 013¢45 
2364 01245 

2365 012454 
2366 012462 


an 


0001 


oo—-—-OoO— 

POMININ —NhornnnsS oS 
—NOoo——-oo0O 

p+ ha Prt ty 


seee gs 


$38 
NO— 
y— 
© 

Ww 


CKFPBCO_FP11F FLTG PNT PRT B 
TEST # 3 = LDCFD AND LDCDF TEST 


013514 
013072 
013464 
013564 
000004 
013554 
013464 
000004 
013226 
013256 
000000 


013210 


000200 


012412 
013306 


043243 
037502 
000003 


013342 


000200 


012502 
013544 


H_ 4 
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MACRO M1113 SEQUENCE 46 
CMP RO. #HXP2+10 :WAS A GOO 
BEQ HX10 *CONSTANT USED 
JMP HXERS — ST0 INCREMENT RO? | 
HX10: | 
STFPS R5 | 
MOV #HXDATO,RO | 
SETD | 
STD ACO, (RO) :GET RESULT 
MOV #HXPS RI 
MOV #4,R 
HX11: CMP (R1)+, (RO)+ :IS IT CORRECT? 
BEQ HX14 
MOV #HXP7,R1 
MOV #HXDATO,RO 
MOV #4.R 
HX12: CMP (R1)+, (RO) :DID FD FAIL TO GET 
BEQ HX13 > COMPLIMENTED? 
JMP HXER6 
HX13: S08 R2,HX12 
MP HXER7 
HX14: SOB R2,HX11 
MOV #0.R4 :FPS CORRECT? 
CMP R4 RS 
BEQ HX15 
JMP HXERB 
-TEST GR7 IMMEDIATE MODE CONSTANT 
HX15: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #200,R4 
LDFPS R4 :SET FD 
001236 MOV #HX16,STMP2 
000004 MOV #HXERD ERRVECT 
HX16: LDCFD #5201,ACO 
HX165: INC RY 
INC R1 
INC R1 
000004 MOV #CPSPUR,ERRVECT 
CMP R1,A3 -SEE IF PC WAS 
BEQ HX “CORRECT 
JMP HXER10 
HX17: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #200,R4 
LDFPS R4 
001236 MOV #HX18,S$TMP2 
MOV #HXP6 RO 


CKFPBCO_FPIIF F 
TEST # 3 = LDCF 


See 


na aha an arate 
Jousunoo 


eee ed eed od etd ed = ad ed ed 


Ooooooeoo Gooe 


™m NINN INNIS 
So 


Ww 
SSSESSEE SES 
oOo OCOoOooo°oco°oo 
ld ed dd dd 
rr AIR 
ner 


NE FERN 


Pte tte: 
SEE 
ooo © =o=9c°0-0 


Mmronnnnrnn 
wiv 


91 
2392 012572 
393 
2394 012574 
2395 OiSene 
2396 012604 
2397 012606 


c& 
ay 012642 
2410 


Nm 
Y PRRePpy 

—_ oO 
™N— ~" 

oo 
—"* 

So 

ae 


ed eed eed eh eed eed 


VSSanoenen 


Nm 
= 


oo Sooo OO 
ahah ababed ae 


L 
D 


S ssu= 


VINN © 


_ 
® 
_ 
WG 


ENE NS NS 
SSoSNRF 


S8 

SEUy 
™~ 
So —NooO os 
— Won © 


SUSE 
a hs | YSVSS 


TG PNT PRT B 
AND LDCDF TEST 


000200 
012564 


013544 
013524 
013464 
013534 
000004 
013554 
013464 
000004 


013374 
013414 


000200 


013474 


016676 001236 
013474 


4 
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000004 


001236 


HX18: 


HX19: 


HX20: 


LOD 
MOV 


MOV 
LDCFD 


SEQUENCE 


(RO) ACO 
#CPSPUR,ERRVECT 
#XPe RO 
(RO) ,AC 
#HXDATO,RO 
ACO, (ROS 
#HXP7 RI 
#4R2 

(RO) +, (RI) 
HX20 

HXER2 
R2,HX19 


;GET RESULT. 


31S RESULT CORRECT? 


args! LDCFD WITH NEGATIVE OPERAND 


HX22: 


HX23: 


HX24: 


HX25: 


HX26: 
3; TEST 
HX27: 


S08 


;SET UP THE LOOP ON ERROR ADDRESS. 
< aaa 


#HX22,STMP2 
(RO) ,ACO 
#HXPS .RO 
(RO) ,ACO 


#HXDATO,RO 
ACO, (ROD 


#HXPS,R1 

g 

(R1)+, (RO)+ 
HX26 


;GET RESULT 


#HXP7 RI 
#HXDATO,RO 
(R1)+, (RO)+ 
HX25 

HXER11 

R2 “th 
HXER1 
R2,HX23 

0 


;WAS SIGN INCORRECT 


;SET UP THE LOOP ON ERROR ADDRESS. 
aye.as 


#HXP1 ,RO 
(RO) ,ACO 
(RO) ,ACO 


#HX28 , STMP2 
#HXP1 RO 


47 


CKFPBCO_FP11F FLTG PNT PRT B 


TEST # 


$e : 012700 
Sf Ogre 
427 012706 


5436 012732 
3637 019736 


4 

sees 012740 
2439 012742 
2440 


2444 012750 
of: 012754 


446 
5149 012756 
2448 012762 
449 


2450 012764 
2451 012772 
2452 012776 


177410 


Ses So ooo —-o& 
SEEN yor 
R 


g 
* 
_ 
W 


-—-oOoo -0o —-oO—- 
SN So 
an 


™m 
i 
— 
=) 


3 = LDCFD AND LDCDF TEST 


013464 
013474 
000004 
013444 


000204 


013172 


000200 
013544 


776 


012 
013474 


013510 
001240 


013574 


J. 4 
MACRO M1113 20-OCT-81 08:27 PAGE 13-3 


001236 


001242 


HX28: LDCFD 
STFPS 


HX29: CMP 


J 
HxX30: S08 


sTEST LDCFD 


HX31: 
LPERR 
MOV 
LDFPS 


MOV 
LDD 


HX32: LODCFD 


HX33: CMP 


HX34: SOB 


HX35: JMP 
zRO INCORRECT 
HXER1: MOV 
MOV 
1§: ERROR 
JMP 


(RO) ,ACO 
R5 


#HXDATO,RO 
ACO, (ROS 


#HXP1,R1 
4.R 
(Ri) +, (RO)+ 
HX30 


HXER13 
R2,HX29 


#204,R4 
R4_RS 
Hx31 
HXER4 

0 


#200,R4 
R4 


#HXP6 RO 
(RO) ,ACO 
#HX32.STMP2 
(RO) ,ACO 
RS 


#HXDATO, RO 
ACO, (ROS 


#HXP1,R1 
#4.R2 
(R1)+, (RO)+ 


HHXP2+4 ,STMPS 
RO,$T 


Ot ws 
HXDONE 


;GET RESULT 


31S IT 0? 


sFPS CORRECT 


;SET UP THE LOOP ON ERROR ADDRESS. 


:GET RESULT 


:I1S IT ZERO? 


:FPS CORRECT? 


a ——™ 


SEQUENCE 


48 


CKFPBCO_FP11F FLTG PNT PRT B 
TEST # 3 = LOCFD AND LDCDF TEST 

2478 
479 01 ie 012737 013514 
480 0131 010037 001240 
481 013104 104237 

$? 13106 000157 013574 
cB 013112 012737 013504 

5 0131 012737 013554 
486 013126 012737 015464 
487 0131 1042 ; 

Stee 0131 0001 013574 
490 OI R86 012737 013504 
491 013150 012737 013554 
492 013156 012737 013464 

2493 013164 104241 

ope 013166 000137 013574 

ats SELL: 010537 001240 
497 013176 010437 001242 

2498 Ot asoe 104240 

$e3p 013204 000137 013574 

$203 013210 010537 001240 
502 013214 010437 001242 

2503 01 104242 

2504 013222 oo les 013574 

2505 013226 012737 013504 

2 O13s 012737 013564 

2507 01 26 012737 013464 

$265 013250 104244 

$250 013252 000137 013574 

2511 013256 012737 013504 

soi¢ ae 64 012737 013564 

25135 01 $ie 012737 013464 

2514 013 104243 

$212 013302 000137 013574 

2517 013306 032716 000001 

2518 013312 001005 

2519 AEE 022716 012416 

2520 013 eenegs 

$25: 013322 000137 037502 

25 g 013365 011637 001236 

2524 013332 0 o6e6 

2525 Ol sete 1042 

$3 013336 000137 013574 

2528 013342 162701 000003 

$3 01 609301 
530 0133550 01 06 012416 

2531 ot 54 HS 001242 

2535 ae 0F0289 001240 
534 01 104 


K_ 4 
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001242 


HXERS: 
1$: 
;REPORT 
HXER2: 
HXER22: 
1$: 
HXER3: 
HXER33: 
1$: 


HXER4: 
18: 


HXER8: 
1$: 
HXER6: 
HXER66: 
1$: 
HXER?: 


1$: 


HXER9: 


1$: 
2$: 


HXER10: 


1$: 





MOV 
MOV 
ERROR 








JMP 
DAT 


wHXP2 1 Q,STMP4 
D8 


#HXP7.STMP7 
#HXDATO, STMPE 
233 


+ 

HXDONE 

#HXP? . STMPS 
#HXP7 . STMP7 
#HXDATO, $TMP6 
+261 


HXDONE 


HXDONE 

#HXP2, STMPS 
STMP7 

#HXDATO, STMP6 

+244 

#uXP2 . STMPS 

#HXPB.STMP7 

#HXDATO, STAG 

+263 

HXDONE 

#1, (SP) 

#HX165, (SP) 

CPSPUR 


(SP) ,STMP2 
(SP)+, (SP)+ 
+235 


HXDONE 
#3,R1 


#HX165,R2 
R2,$TMP4 


Sl 


sSEE IF IT 
:AN ODD ADDRESS 





—— 


SEQUENCE 


49 


oa _— 


ee 


50 


SEQUENCE 


4 
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TG PNT PRT B 


F FL 
TEST # 3 ~ LDCFD AND LDCDF TEST 


CKFPBCO _FP11 


:GO INITIALIZE THE FPS AND STACK; AND 





we) 
we wm we 
2 20 Sx 
—— be © —— 
AA #AO AA 
* fy «= 8h ww e ww 
2 es a ele 2 ak 4 F3 Pk ol hh) 
awaaane aac 
e SobecScs 86 
ens x v= $S= 
i NORKR.OR.~0 aN =o ~~ 
bad edt at wt we AAA iF n % 
<i Arh. AN ON n e 
2 2 >>9, KRALL O ORR AQUAAN KL RR uw 
et Neg at Nat -¥ et at ANAS NR. “ 
= = SES scoo coco Ree HOOCOe eee KK OONEK eK NKOCONFSCO 
- ~ oO us 
= « a < on ~ va) + wn oO x 20 Ss 
vv uw w a a. a a a a. a a. a Qa 
< < ww >< >< >< >< >< 4 >< > >< >< >< 
x = = = z= x z x xr x a a “ x 
wo ~w0O0 ro 
SA SAS ne Sr 
NIN fee ON 
ss sss 3s 
SARARS X ANZ 
Wem i hs 
Led 
AMAIA A mmm 
eee erer eK KF eee 
SOOCOCSCO SO COCO 
KRAARARAMR AAR 
Mavala 


wow So N oom om ™~N Nu ww 
sgeox NS BELL TLSY sRorsoensegnsgoyyesN FRIESEN Xx 

MAM MMMMMMMMMMMMMMMmMmmMmniny RMR MEREE MM 
ah, <=, ah, gh, mg, nah. seh, rg Cre phe et ee ee eee er ree a ar ee oe oo or oe 


COOSSCOOSO SOO SCOOO SOOO SCOOOCOOOOOOOOOOOOSSOSO OOOOOSooSSo O° 


BIDDRGS VOSS 95 9S SONAL RE RES SIGES SS SSPE NESE RAE SENSED ESERS 


NONEINI NOI ENINIEIENI NI OIENININIEI ONION I ENIININI OI NI IOI EOIOIN mcueueueucun 


5 013370 000137 013574 
127 
127 

1 
a 
1 
127 
10424 
00013 
01 
8 
1 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000377 
177776 
177777 
177776 
005201 
000000 
000000 
000000 
Hs 2 hg 
177776 
177777 
ae 
199776 
000000 
000000 
$25 
ie 
18 
000377 
177776 
199357 
000000 
000000 
104412 


-——— ee —_ 


CKFPBCO FPI1F FLTG PNT PRT B 


TEST # 3 = LDCFD AND LDCDF TEST 


2591 


3598 
2601 


Mm 4 
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;SEE IF THE uses HAS a gt 
; THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH i (HAS 

‘THE USER TYPED CONTROL G?) 


SEQUENCE 


51 


2602 


o 


SRSRVRS RRS 
wed et at at est ot 
3334+ 
PEERS 


AADAAQ 


SSEREES 


WONOULWN—"OOO~syN BVSwhr— 


mron 

KORO 
SEER RE LAA 
SINISE & 


SOooQooooooooo 


ee eed ceed cee ee eed eed eed ed ed od od 


“SNI™N 
On 


Www 


REE occa ecrene 


MiltWw Mo 


oOoo°oo 
+ a = 


a3 


rs 
moO 


CKFPBCO FPIIF FLTG PNT 
TEST # 4 = CMPD TEST 


: 


WMirnony 
Ww 


_ 
™m 


PRI B 


014412 
000000 
000000 


014412 
000000 


014412 


N 4 
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000000 
000000 


000000 


000000 


SEQUENCE 


-SBTTL TEST # 4 - CMPD TEST 


2s EAAERAEEAAARAEAAAEAEAAAEEEAAAEEAAAAAAAAEAARARAAARAARAEAEAAEEAEREE 


:*TEST 4 CMPD TEST 


st 

**THIS IS A TEST OF THE CAPD INSTRUCTION. NOTE THAT A SUBROUTINE 
:*]S USED TO SET UP OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE 
3 *RESULTS 

-* 

+ see eee eee eee eee eRReeeeeeeeeAke keke Keke eeeetenkeneekeneeneee 


TST4: SCOPE 


44 THE CMPD INSTRUCTION WITH (FSRC=AC=0) 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, CMPSUB 
1$: -WORD 0.0,0,0 :ACO 
2$: eWORD 0,0.0.0 :FSRC 
3$: 200 :FPS BEFORE EXECUTION 
204 sFPS AFTER EXECUTION 
200 sERROR FPS 
4$: ERROR +1 :FPS ERROR 


:TEST CMPD WITH (AC=0) AND FSRC POSITIVE. 
AAA2: 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, CMPSUB 

1$: -WORD 0,0,0,0 ZAC 

2$: 25252 “FSRC 
52525 
125¢52 
52525 

3$: 200 :FPS BEFORE EXECUTION 
200 “FPS AFTER EXECUTION 

| 210 “ERROR FPS 
4$: ERROR +3 “FPS ERROR 


:TEST CMPD WITH (AC=0) AND FSRC NEGATIVE 
AAAS: 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC. CMPSUB 
1$: ; WORD 0,6,0.0 AC 
2$: j 32 *FSRC 
12525 
52525 
125252 
3S: 200 :FPS BEFORE EXECUTION 
210 “FPS AFTER EXECUTION 
200 “ERROR FPS 
4$: ERROR +4 “FPS ERROR. 
TEST CMPD WITH (FSRC=0) AND AC POSITIVE 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, CMPSUB 
1$: €3¢3 sAC 
5252 


52 


ee ae 





CKFPBCO FPIIF FLTG PNT PRT B 
TEST # 4 ~ CMPD TEST 


1 


> 
-O—— 


S238 
238 
S33 


ed eed ceed ered eed ce eed eed eed wd ed od 
SPRL LLOLS 


oO00 
RNOO 


SESSSSSSESIIS. 


™m 
RO 


33 


ooocoo 
RERAAASS 


PREP HRRHLLODE 


Vaan 
ALNIOO 


SOQOQoQoQoooooooooeco 
ooo 


eee ce ceed ee ce ee ee ed eed eed ed eed od et ed 


SSS 


oO 
“ 


BSeSSeSEES REE RRER yo ee INS 
VonrvoseRvee 


ee ee ee ee ee eS 


yo oy ot et at ot ot et te 


COoOoCoCooooooooooeo 
et a ed ad ed ed a ed ed 


RRR RO 
88 


_ 
= 
MmeuMnror nw 


Wann 


WMruouwuw 


MMNuMu x 


~Ne 
we 
MINN 


MMNUININVINW 


o-oo" 


000000 000000 ¢3: 


oOo 
— 
: a 
& 
—_ 
™ 


014412 


4$: 


sTEST CMPD WITH 
AAAS: 


18: 


4$: 
sTEST CMPD WITH 
AAA6: 


1$: 
2$: 


3$: 
4$: 


sTEST CMPD WITH 
AAA? : 

1$: 
2$: 


3$: 


4$: 


5 
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-WORD 0,0,0.0 


ERROR +5 


LPERR 
432 PC ,.CMPSUB 


WORD 0,0,0,0 
ERROR +6 


LPERR 
PC, CMPSUB 


MINIM MN 


RROR +7 


LPERR 
PC, CMPSUB 


OR +10 


—_—— —- 


SEQUENCE 55 


7 FSRC 

:FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 

;FPS ERROR 


(FSRC=0) AND AC NEGATIVE 
;SET UP THE LOOP ([N ERROR ADDRESS. 


zsAC 


sF SRC 

FPS BEFORE EXECUTION 

FPS AFTER EXECUTION 
ROR FPS 


ER 
3FPS ERROR 


AC POSITIVE AND FSRC NEGATIVE 


;SET UP THE LOOP ON ERROR ADDRESS. 
AC 


s3FSRC 

sFPS BEFORE EXECUTION 
sFPS AFTER EXECUTION 
sERROR FPS 

sFPS ERROR 


AC NEGATIVE AND FSRC POSITIVE 


:SET UP THE LOOP ON ERROR ADDRESS. 
AC 


sFSRC 

sFPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 

sFPS ERROR. 





= 
CKFPBCO FP1IF FLTG PNT PRT B MACRO M1113 20-OCT-81 08:27 PAGE 14-2 SEQUENCE 
TEST # 4 ~ CMPD TEST 


2700 
Ay :TEST CMPD WITH AC POSITIVE AND FSRC POSITIVE 
7 ‘ :AND EAC LESS THAN EFSRC. 
703 0141 ; AAAS: 
0141 106413 LPERR - sSET UP THE LOOP ON ERROR ADDRESS. 
ihe. 014124 004737 014412 JSR PC, CMPSUB 
705 0141 01638? 1$: 12345 3sAC 
706 0141 O6 654 67654 
707 0141 032101 32 
708 0141 0 6 23456 
709 014140 02345 2$: 23456 :FSRC 
710 m2 07654 76543 
711 014144 O I2i¢ 1012 
ars or eies Baa3e 4567 
713 01415 00 3$: 200 :FPS BEFORE EXECUTION 
714 014152 200 sFPS AFTER EXECUTION 
2715 014154 006210 210 sERROR FPS 
ari? 014156 104011 4$: ERROR +11 :FPS ERROR 
718 
2719 :TEST CMPD WITH AC POSITIVE, FSRC POSITIVE AND EAC GREATER THAN EFSRC 
2720 014160 AAAS: 
014160 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2721 014162 004737 014412 JSR PC. CMPSUB 
7 3 014166 045676 1$: 45676 zAC 
723 014170 054321 §4321 
724 014172 012345 ie 45 
2725 014174 067654 ht 
$758 014176 034567 2$: 7% FSRC 
2727 0142 065432 654 4 
2728 014202 101234 101234 
2729 014 056765 56765 
2 014508 000200 3$: 200 sFPS BEFORE EXECUTION 
2731 ae 1 000210 210 :FPS AFTER EXECUTION 
sie 14212 000200 200 zs ERROR FPS 
Hey 014214 104012 4$: ERROR +12 
2735 sTEST CMPD WITH AC POSITIVE, FSRC POSITIVE AND AC EQUAL TO FSRC 
2736 014216 AAA10: 
014216 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2737 014 004737 014412 JSR PC, CMPSUB 
sia8 014224 AC 4 oe 1$: lenes zAC 
2739 014226 O67 015 or le 
740 014 03456 5 
741 014232 012345 Or¢ 5 
rt 014234 012345 2$: ie 45 :FSRC 
743 014236 oer eis Ole 
744 014240 034567 4 
745 014242 012345 012345 
746 014244 000200 3$: 200 sFPS BEFORE EXECUTION 





TEST # 


CKFPBCO FPIIF attest PNT PRT B 


748 O43 
749 014 33 000 
750 01425 


751 
if 


i 
2754 014254 
14 2 
2755 014 
$728 014262 
sey Bae 
736 014 % 
760 014272 
761 014274 
106 01427 
2765 014 
2764 014302 
Hh F 014 
A, 014 
2767 014310 
i 
Hs 
2771 014312 
014312 
2772 014314 
773 014320 
774 014322 
775 014324 
sir6 014326 
777 014 
2778 014 
2779 014 
2780 014336 
ms oie 
783 014344 
784 014346 
2785 
278 
2788 014350 
OeseS 
2789 01435 
790 014356 
791 014 
as 014 
793 014 
794 014 
795 014370 
a See 
797 014374 
798 014376 
799 014400 
800 014402 
1 014404 


# 4 ~ CMPD TEST 


an 


004737 
345 


oO 


014412 


014412 


014412 


ob. 5 
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SEQUENCE 


Ae :FPS “fie EXECUTION 
00 TERROR FPS 
4$: ERROR +13 :FPS ERROR 


TEST CMPD WITH AC POSITIVE, FSRC POSITIVE, EAC EQUAL TO EFSRC, 
ZAND FSRC GREATER THAN AC. 


LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
SR PC, CMPSUB 


J 
1$: 12345 zAC 
efile 
eEy H 
AC, 5 
2$: 12345 sFSRC 
dt 
436 0 
123456 
3$: soe :FPS BEFORE EXECUTION 
00 “FPS AFTER EXECUTION 
210 OR FP 


[ERROR FPS 
4$: ERROR +14 :FPS ERROR 


TEST CMPD WITH AC POSITIVE, FSRC POSITIVE, EAC EQUAL TO EFSRC, 
zAND_AC GREATER THAN FSRC. 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
SR PC. CMPSUB 
1$: 54321 AC 
76543 
¢} 76 
4321 
2$: 54321 sFSRC 
654 
107654 
32107 
3$: 300 -FPS BEFORE EXECUTION 
10 “FPS a EXECUTION 
200 “ERROR FPS 
é¢; ERROR +15 “FPS ERROR 
:TEST CMPD WITH AC NEGATIVE, FSRC NEGATIVE, EAC EQUAL TC EFSRC, 
AND A C GREATER THAN FSRC 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, CMPSUB 
1$: 112345 AC 
43 19 
7654 
21076 
2$: L1633° sFSRC 
54 ¢} 
976 4 
2107 
3$: 00 -FPS BEFORE EXECUTION 
10 “FPS ar TER EXECUTION 
00 sERROR FPS 
4$: ERROR +16 =FPS ERROR 


ee 


~— 


rrr rt ee  —— 


. 3 
CKFPBCO FP11F FLTG PNT PRT B MACRO M1113 20-OCT-81 08:27 PAGE 15-1 SEQUENCE 56 
TEST # 4 = CMPD TEST 








$508 
804 014406 000137 014602 : JMP AAADONE sFINISHED CMPD TEST. 
2806 
2807 ;THIS SUBROUTINE, CMPSUB, 1S CALLED TO SET UP, EXECUTE 
808 AND CHECK THE RESULTS OF A CMPD INSTRUCTION. 
3809 “IT IS CALLED THUS: 
2811 JSR PC, CMPSUB 
2812 : ACARG: .WORD X,X.X,X :AC OPERAND 
281 : FSRCARG:.WORD X.X.X,X ;FSRC_OPERAND 
2814 : FPSB: .WORD xX “FPS BEFORE EXECUTION 
2815 : FPSA: .WORD X “FPS AFTER EXECUTJON 
2816 : FPSE: .WORD X TERROR FPS 
2817 : ERR: ERROR +X “FPS ERROR 
B19 ; CONT: “RETURN ADDRESS 
2820 “THE OPERANDS ARE SET UP (USING Aco FOR THE AC OPERAND). THEN 
2821 “FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, CMPD, IS EXECUTED. 
282 “AFTER THE EXECUTION THE FPS IS CHECKED AGAINST FPSA. IF IT IS A MATCH 
282 “THEN THE AND CONTROL IS RETURNED TO CONT. I 
2824 ;THE FPS IS INCORRECT | IT 1S COMPARED WITH FPSE IN AN ATTEMPT TO ANALYSE 
2825 “THE FAILURE. IF THE FPS IS THE SAME AS FPSE THEN CONTROL IS 
2826 “RETURNED TO THE ERROR CALL AT LOCATION ERR. IF THE FPS WAS 
2827 “NOT CORRECT BUT DIDN'T MATCH FPSE A GENERAL ERROR IS REPORTED 
2828 “AND CONTROL IS PASSED TO CONT. 
2830 014412 012601 CMPSUB: MOV (SP)+,R1 ;PICK UP_A POINTER TO THE 
2832 014414 016100 000020 MOV 20(R1),RO GET THE FPS BEFORE pEXECUTION. 
28 014420 170100 LDFPS RO “LOAD IT INTO THE F 
2835 014422 012737 014444 001236 MOV #1$.$TMP2 : SAVE ADDRESS OF CMPD INSTRUCTION. 
2836 014430 010100 MOV T ADDRESS OF AC OPERAND. 
2837 014432 172410 LDD (RO), ACO “LOAD ACO OPERAND 
2839 014434 010100 MOV R1.RO : COMPUTE FSRC OPERAND 
840 014436 062700 000010 ADD #16,R0 = ADDRESS 
2842 014442 000240 NOP :FOR SCOPING. 
843 014444 173410 1$: CMPD _—« (RO) ,ACO “EXECUTE THE TEST INSTRUCTION. 
845 014446 170205 STFPS RS . :SAVE FPS AFTER INSTRUCTION. 
847 014450 016104 000022 MOV 22(R1),R4 :GET EXPECTED FPS. 
“IF INCORRECT SET UP FOR 
9 014454 010137 001240 MOV R1,$TMP3 “AN ERROR CALL. 
50 014460 010137 001242 MOV R1.STMP4 
51 014 737 000010 001242 ADD #10, STMP4 
85¢ 014472 010537 001244 MOV RS, STMPS 
53 014476 010437 001246 MOV 24. $TMP6 
854 014502 020405 CMP R4 RS sWAS FPS CORRECT? 
55 014504 001410 BEQ 3$ “BRANCH IF YES. 


57 


2858 014506 026105 000024 CMP 24(R1),R5 sWAS THE FPS THE SAME 





CKFPBCO FP11F FLTG PNT 

TEST # 4 ~ CMPD TEST 
859 

: 014512 001003 

014514 062701 

014520 000111 

1 1 1 

814586 000411 


2886 014572 
2887 


2889 
2890 014602 
014602 


104412 


PRT B 


00026 


014572 
000004 
000030 
001240 
014572 001242 


000000 000000 


2$: 


3$: 


4$: 


5$: 
6$: 
7$: 


CMPTMP: 


AAADONE : 


RSETUP 


» 
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+1 
5$ 


#CMPTMP,RO 
ACO, (ROS 
Ri 


tRd52, (ROD 
R3.4$ 

30(R1) 
R1,S$TMP3 
ee” 


0,0,0,0 


7AS THE gy INCORRECT FPS? 
;BRANCH IF NO MATCH. 


THE EXPECTED | INCORRECT 
FPS narcnen THE FRESULTAN FPS 
TURN TO THE ERROR CALL 
7 IN THE CALLING ROUTINE. 
sOTHERWISE REPORT INCORRECT FPS 


it FPS WAS CORRECT MAKE SURE 
ACO WAS NOT AFFECTED BY CMPD. 


RETURN 
;REPORT ACO MODIFIED BY CMPD 


; RETURN 


:GO INITIALIZE THE FPS AND STACK; AND 
; THE USER HAS EXPRESSED 
> THE DESIRE TO C 


HANGE THE SOFTWARE 
UAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 


SEQUENCE 


57 


—_ —— -_ 


arose FPI1F FLTG PNT PRT B 


MACRO ai, © eli 08:27 PAGE 4, ° 





SEQUENCE 


TEST # 5 = DIVD WITH (FSRC=0) AND (BUT FD) T 


yi 


2 


: 


14644 


pA 


eh we ed eed <> 
Pee 


29 

2925 014662 
2926 014666 
2927 014670 
2928 


5350 014672 


ooo 9ofoOo OOO 
— ~—— = 


mh ed — 


Co 
oo 


a se 
Sur 
RR 


NN 
oss 


S 


Oo == =0o-00 +o 
Pron 
= 
— 
> 


Nm oO 
SO 
a 


x 
R 
oO 


140204 


000004 


040200 
014722 
015274 
015264 


140200 


000244 
001236 


001236 


-SBTTL TEST # 5 = DIVD WITH (FSRC=0) AND (BUT FD) TEST 


Fe “REAR AAEAAAEERERAEEREEEEAEEERAEAAEREEEAERAEEAEEREEREEEAEEEEEEEEEE 


:STEST 5 DIVD WITH (FSRC=0) AND (BUT FD) TEST 


S eTHIS IS A_TEST OF THE ote INSTRUCTION WITH A 

:*ZERO DIVISOR. THE CONDITION IS CHECKED WITH BOTH 

; # TRAP ENABLED AND TRAPS DISABLED. 

Itiiitiii iii Ld 


1$15: SCOPE 


FIRST TEST DIVD WITH (FSRC=AC=0) AND TRAPS DISABLED. 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 


BBBO: #40200,R4 “SET UP FPS 
“WITH INTERRUPTS 
“DISABLED. 
LDFPS  R4 
MOV WBBBER1.FPVECT;SET UP FOR ANY FP INTERRUPTS. 
MOV #8BB1, $TMP2 
MOV #BB8P UR :SET UP ACO = 0 
LDD (RO) .ACO 
MOV #BBBP1,R1 sFSRC = 0 
BBB1: DIVD (R1),ACO :TEST INSTRUCTION 
STFPS RS sGET FPS 
STST R3 “GET FEC 
MOV #140204 ,R4 EXPECTED FPS. 
CMP R4.R 71S FPS CORRECT. 
BNE BBBER2 [IF INCORRECT BRANCH. 
MOV #4 RE s EXPECTED FEC. 
CMP R2_R 71S FEC CORRECT? 
BNE BABER3 “JF INCORRECT BRANCH. 


lest DIVD WITH (FSRC=0) AND TRAPS DISASLED. 
" _LPERR 


:SET UP THE LOOP ON ERROR ADDRESS. 









#40200,Ré4 “LOAD FPS WITH TRAPS DISABLED. 
MOV #8883, $TMP2 
:SET UP ACO OPERAND (NON ZERO). 
(RO) ACO 
:FSRC=0 
BBB3: (RO) ,ACO 
STFPS RS GET EPS. 
STST R3 “GET FEC. 
MOV #140200,.Ré “EXPECTED FPS. 
CMP R4,R :1S FPS CORRECT? 
BNE BBBER2 ‘JF INCORRECT BRANCH. 
MOV 


EXPECTED FEC. 
sWAS FEC CORRECT? 


#4,R 
R2,R 





58 


ceca LL LL 


5 
CKFPBCO FPIIF FLTG PNT PRT a) we MACRO M1113 oi 08:27 PAGE T6=3 SEQUENCE 
TEST # 5 = DIVD WITH (FSRC=0) AND (BUT FD) TES 

2949 014746 001111 BNE BBBER3 :IF INCORRECT BRANCH. 
2951 :TEST DIVD WITH FSRC=0) AND TRAPS ENABLED. 
2952 014750 BBBS : 

014750 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2953 014752 012704 000200 MOV #200,R4 “SET UP FPS. TRAP ENABLED. 
5338 014756 170104 LDFPS RG 

014760 012737 015006 001236 MOV #BBBS .$TMP2 
2957 014766 012700 015274 MOV #BBBP2 RO :SET UP ACO OPERAND (NON ZERO). 
958 014 172410 LDD (RO) ,ACO 
960 014774 012737 015014 000244 MOV WBBB6.FPVECT | ;SET UP FOR THE EXPECTED INTERRUPT. 

1 015002 012700 015264 MOV #BBBP1 ,RO *FSRC=0 

soe8 015006 176410 BBBS: DIVD (RO).ACO : TEST INSTRUCTION (SHOULD RESULT IN TRAP). 
3964 015010 170000 CFCC 
$966 015012 000502 BR BBBER4 :G0 REPORT FAILURE, NO TRAP. 
2968 015014 022716 015010 BBB6: CMP WBBBS+2.(SP) | ;TRAP TO HERE WHEN THE DIVISION BY 0 
2969 “OCCURS. FIRST SEE IF THE ADDRESS OF 
2970 “THE TRAP IS 2+THE ADDRESS OF THE TEST 
2971 *DIVD INSTRUCTION. 
2972 015020 001402 BEQ 1$ 
2973 015022 000137 037450 JMP FPSPUR :IF NOT THEN REPORT AN UNEXPECTED 
2975 015026 170205 1$: STFPS RS “GET FPS. 
2976 015030 170303 STST RB “GET FEC. 
977 015032 022626 CMP (SP)+, (SP)+ “RESET THE STACK. 
2979 015034 012704 100200 MOV #100200,R4 sEXPECTED FPS. 
2980 015040 020405 CMP R4 RS [1S FPS CORRECT? 
2981 015042 001040 BNE BBBER2 ‘JF INCORRECT BRANCH. 
sons 015044 012702 000004 MOV #4,R sEXPECTED FEC. 
2984 015050 020203 CMP R2.R *1S FEC CORRECT? 
985 015052 001047 BNE BBBER3 [JF INCORRECT BRANCH. 
2987 015054 000137 015304 JMP BBBDONE sOTHERWISE GO TO NEXT TEST. 
2989 
2990 TRAP HERE IF AN UNEXPECTED INTERRUPT OCCURS. 
5991 015069 062737 000002 001236 SBBER1: ADD #2,$1MP :SEE IF THE INTERRUPT OCCURRED 
2998 ‘DURING THE EXECUTION OF THE DIVD 
2993 ‘ INSTRUCTION BEING TESTED. 

015066 021637 001236 CMP (SP) ,STMP2 
2995 015072 001402 BEQ 
3996 015074 000137 037450 JMP FPSPUR ;:IF NOT REPORT UNEXPECTED FP TRAP. 
2998 015100 022626 1$: CMP (SP)+, (SP)+ sRESET THE STACK. 

015102 170303 STST ay “GET FEC. 

015104 170205 STFPS oR “GET FPS. 

1 015106 012737 001240 MOV #4. STMP3 “EXPECTED FEC. 

015114 010337 001242 MOV R3.STAPS 

015120 010537 001244 MOV RS. $TMP 

015124 010037 001250 MOV RO.STMP 


CKFPBCO FPIIF FLT 
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ITH (SRC= ) AND (BUT FD) TES 


12737 140200 001246 MOV #140200, STMP6 











015136 104017 2$: ERROR +17 sREPORT (BUT FD) FAILED RESULTING IN AN FP TRAP 
‘WITH TRAPS DISABLED. 
015140 000137 015304 JMP BBBDONE 
10 REPORT FPS INCORRECT: 
11 015144 010537 001242 BBBER2: MOV R5.$ 
1 013190 010437 001244 MOV 
13 015154 9190 7 001246 MOV 
3014 015160 010137 001250 MOV 
15 015164 104080 1$ E 
3016 015166 000137 015304 
3018 -REPORT FEC INCORRECT: 
19 015172 010337 001242 BBBER3: MOV R3,$TMP4 
30 015176 010237 001240 MOV Ro, STMPS 
1 015 010037 001246 MOV RO.STMP 
@ 015 010137 001250 MOV R1.$TMP 
015212 104021 1$: ERROR +21 
3024 015214 000137 015304 JMP 
3026 :REPORT NO TRAP OCCURRED AFTER TRYING TO DIVIDE 
302 “BY ZERO WITH ALL TRAPS ENAB 
3028 01522 170303 BBBER4: STST RS "GET FEC. 
3029 015222 170205 STFPS R “GET FPS. 
30 0152¢ 012737 000004 001242 MOV 
3031 015232 010337 001240 MOV 
015236 010537 001244 MOV 
3033 015242 012737 100200 001246 MOV 
34 015250 010037 001250 MOV 
3035 015254 010137 001252 MOV 
36 015260 104022 1$: ERROR 
3037 015262 10 BR 
3039 015264 000000 00 000000 BBBP1: .WORD 0,0,0.0 
3040 015274 012345 eke 023456 BBBP2: .WORD  12345.54321,23456, 76543 
5 
3044 015304 BBBDONE : 
015304 104412 RSETUP :GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 
i THE DESIRE TO CHANGE THE SOFTWARE 
RTUAL CONSOLE SWITCH REGISTER (HAS 
“THE USER TYPED CONTROL G?) 
3045 
3046 
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-SBTTL TEST # 6 = DIVF TEST 


FERRARA AERA RRA A EERE REA EAEE AREER ERERERAEERRAERRERERE ERR ERE EKER 


s*TEST 6 DIVF TEST 


s* 
:*THIS IS A TEST OF THE DIVF INSTRUCTION. NOTE THAT A SUBROUTINE IS 
; *USED re SET UP THE OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE 


s #RESUL 
+ SERRE RARERER ERRATA ATER AR AREA RARER ATR 
TST6: SCOPE 
; CHECK DIVE WITH (AC=0). 
"  LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC .DIVF SUB 
1$: -WORD 0 6 AC 
2$: "WORD 12345,67012 “FSRC 
3$: "wORD 0,0 *RES 
4$: 0 “FPS BEFORE EXECUTION. 
4 “FPS AFTER EXECUTION 
5$ WORD 12345 ,67012 “ERROR RESULT 
6$ ERROR + “RESULT BAD. 


pres! DIVF WITH AC POSITIVE, FSRC POSITIVE AND IN ROUND MODE. 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC DIVFS 

1$ -WORD 65652,125252 = AC 

2$: “WORD ,0 *FSRC 

3$: "WORD 40252.125252 :RES 

L$: 3000 “FPS BEFORE EXECUTION. 
3000 “FPS AFTER EXECUTION. 

5$: “WORD 40052,125252 RESULT. 

6$: ERROR +24 “DIV NORMALIZE FAILURE. 


eres! DIVF WITH AC POSITIVE, FSRC POSITIVE. 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC .DIVFSUB 

i$: -WORD  76400.0 AC 

$: “WORD 764 ,0 *FSRC 

$: ; WORD 40200.0 RES 

4$: i0 “FPS BEFORE EXECUTION. 
1000 “FPS AFTER EXECUTION. 

5$ .WORD  140200,0 “ERROR RES. 

6S: ERROR +25 :SIGN BAD. 


3S DIVF WITH BOTH OPERANDS POSITIVE. 


LPERR eens :SET UP THE LOOP ON ERROR ADDRESS. 
eT ia 
$3: “WORD 23 °177777 =: RES 
4$: 0 “FPS BEFORE EXECUTION. 
6 “FPS AFTER EXECUTION. 


61 
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TEST # 6 ~ DIVF TEST 


3099 015462 000 002000 5$: WORD 2000,2000 sERROR RES. 
3100 015466 10402 63: ERROR + 
310¢ :TEST THE DIVF INSTRUCTION: 
3103 015470 ¢cc5: 
015470 104413 , LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3104 01547 737 016070 JSR PC p VFS 
31 5 015476 1 377 177777 1$: “WORD 12377,177777 — AC 
106 015502 01 000000 2$: “WORD 00,0 “FSRC 
3107 015506 040252 125252 3$: "WORD 40252,125252 
3108 01551 4$: 0 “FPS BEFORE EXECUTION. 
109 015514 0 “FPS AFTER EXECUTION. 
3110 015516 ooooos 177777 S$: “WORD -1,~1 “ERROR RES. 
3111 015522 104023 6$: ERROR +23 
3118 : TEST DIVIDE ALGORITHM. TEST ROUND CONSTANT. 
3114 015524 CCC6: 
015524 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3115 015526 004737 016070 JSR PC DIVF SUB 
116 015532 064600 1$ -WORD  64600,1 AC 
3117 0155 066600 000000 2$: “WORD $6600 .0 *FSRC 
3118 015542 036200 000001 3$: “WORD 00,1 ; 
3119 015546 000000 4$: 0 “FPS BEFORE EXECUTION. 
3120 015550 000000 0 “FPS AFTER EXECUTION. 
3121 015552 00 003000 5$ “WORD  3000,3000 “ERROR RES. 
3122 015556 104023 ERROR +23 
3124 : TEST DIVF. 
3125 015560 CCC7: 
015560 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3126 015562 004737 016070 JSR PC DIVES 
3127 015566 034577 177776 1$: “WORD 34577,177776 AC 
3128 015572 025400 $: “WORD 23400.0 *FSRC 
3129 015576 051377 177776 $: "WORD 51377.177776 :RES 
3130 015602 000017 4$: 17 “FPS BEFORE EXECUTION. 
3131 015604 000000 “FPS AFTER EXECUTION. 
3138 015606 003400 003400 5$ WORD 3400, 3400 “ERROR RES. 
3133 015612 104023 6$ ERROR +2 
3136 
3136 :DIVE TEST. 
3137 015614 CCCB: 
915614 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1 015616 737 016070 JSR PC DIVE SUB 
139 01 7652 125252 1$: . WORD é 65 .125252 ~=—«s AC 
140 01 056500 000000 28: “WORD  56500.0 *FSRC 
141 015632 051343 107070 “WORD 51343,107070 
16¢ 015636 000000 4 0 ‘FPS BEFORE EXECUTION. 
14 015640 0 “FPS AFTER EXECUTION. 
144 01564 051543 107070 5$: : 51543,107070 : ‘ 
145 015646 104026 6s: ERROR +26 “DIDN'T INCREMENT THE EXPONENT 
146 “AFTER DIVID NORMALIZATION. 
148 :DIVF WITH AC NEGATIVE, FSRC NEGATIVE. 
149 015650 CCC9: 
015650 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3150 015652 004737 016070 JSR PC .DIVF SUB 


eee as 
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TEST # 6 ~ DIVE TEST 
151 01 140400 000000 1$: -WORD  140400.0 SAC 
3152 O136¢2 140500 000000 2: "WORD  140500.0 *FSRC 
315 15666 040052 12 $: "WORD 040052,125253 RES 
154 015672 000000 4$: 0 “FPS BEFORE EXECUTION. 
3135 015674 “FPS AFTER EXECUTION. 
136 015676 140052 125253 S$: “WORD  140052,125253 ‘ERROR RES. 
137 015702 10402 6S: ERROR +27 ‘BAD SIGN. 
159 :DIVE WITH AC NEGATIVE AND FSRC POSITIVE. 
160 015704 Ccc10: 
15704 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3161 13706 004737 016070 JSR PC DIVFSUB 
16¢ 15712 160077 000000 1$: “WORD 160077,0 sAC 
316 015716 040277 000000 2$: “WORD  40277.0 *FSRC 
3164 015722 160000 000000 3$: "WORD  160000,0 ; 
3165 0157 7 4$: 7? “FPS BEFORE EXECUTION. 
3166 0157 10 10 “FPS AFTER EXECUTION. 
3167 015732 060000 000000 S$: : 60000,0 “ERROR RES. 
3168 015736 104027 6S: ERROR +27 ‘BAD SIGN. 
3170 :DIVF WITH AC POSITIVE AND FSRC NEGATIVE. 
3171 015740 CCCIT: 
015740 104413 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
3172 015742 004737 016070 JSR PC DIVFSUB 
173 015746 040400 1$: “WORD  40400,0 ZAC 
3174 015752 140500 000000 2$: "WORD  140500,0 *FSRC 
3175 015756 14005¢ 125253 3$: "WORD 140052.125253 : 
3176 015762 00001 4$: 17 *FPS BEFORE EXECUTION. 
3177 015764 000010 10 “FPS AFTER EXECUTION. 
3178 015766 040052 125253 S$: “WORD 40052,125253 ERROR RES. 
3179 015772 104027 6S: ERROR +27 “BAD SIGN. 
3181 
3182 :TEST DIVE BOTH OPERANDS POSITIVE AND TRUNCATE MODE. 
3183 015774 CCCl2: 
015774 104413 LPERR :SET UP THE LOUP ON ERROR ADDRESS. 
3184 015776 004737 016070 JSR PC DIVE SUB 
185 016002 060100 000001 1$: “WORD  60100,1 AC 
186 01 040300 000000 2$ WORD 4030¢ 9 °F SRC 
187 trate 060000 000000 3$ “WORD ,0 RES 
3188 016016 900052 4$ 52 “FPS BEFORE EXECUTION. 
189 016020 0 40 “FPS AFTER EXECUTION. 
3190 016022 060000 000001 S$: WORD 4 SERROR RES. 
191 016026 104030 6S: ERROR +30 * TRUNCATION ERROR 
198 <DIVFE WITH POSITIVE OPERANDS AND ROUND MODE. 
194 o1603 ccc13: 
016030 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
195 016032 004737 016070 JSR PC DIVE SUB 
196 16036 060100 000001 1$: ,WORD 60100,1 sac 
197 016042 040300 000000 $: “WORD  40300.0 °F SRC 
198 16066 060000 000001 $: WORD 2000074 RES 
199 01605 5 4$: 5 “FPS BEFORE EXECUTION. 
16054 0 “FPS AFTER EXECUTION. 
1 016056 000000 5$: ' 69000,0 “ERROR RES. 
é 16062 104031 6$: ERROR +31 “ROUND ERROR. 
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TEST # 6 =~ DIVF TEST 


Be 016064 000137 016314 JMP CCCDONE ;GO TO NEXT TEST. 








0 
06 -THIS SUBROUTINE, DIVFSUB, IS CALLED TO SET UP, EXECUTE 
07 “AND CHECK THE RESULT OF A DIVF INSTRUCTION. If IS CALLED THUS: 
; PC DIVE SUB 
10 : ACARG: .WORD X,X : 
11 : FSRCARG:.WORD X,X [FSRC OPERAND 
12 : RES: .WORD ¥X,X “EXPECTED RESULT 
1 : FPSB: .WORD X “FPS BEFORE EXECUTION 
3014 : FPSA: .WORD xX “FPS AFTER EXECUTION 
15 : ERRES: .WORD X,X : RESULT 
16 : ERR: ERROR +X “RESULT ERROR 
7 : CONT: SRETURN ADDRESS 
19 ZTHE UPERANDS 
20 :FPSB IS L 
21 “AFTER THE EXEC 
22 “EXPECTED C 
§ :1S 
4 s INC 
$552 71S 
26 : THE 
3227 >THE E 
3228 : THEN THE FAI 
3280 :TO CONT. 
5232 016070 012601 DIVF SUB: MOV (SP)+,R1 -GET A POINTER TO THE ARGUMENTS. 
3235 016072 012700 000200 MOV #200,R0 =SET FD MODE. 
016076 170100 LDFPS RO 
3235 016100 010100 MOV R1.RO :LOAD THE AC OPERAND. 
36 016102 172410 LDD (RO) ACO 
3337 016104 016100 000014 V 14(R1) RO :LOAD THE FPS 
3238 016110 170100 LDFPS RO 
3239 016112 012737 016126 001236 MOV #1$,STMP2 
40 016120 010100 MOV RI -RO 
41 016122 062700 000004 ADD #4,R :ESTABLISH A POINTER TO FSRC. 
‘8 016126 174410 1$: DIVF (RO), ACO :TEST INSTRUCTION. 
45 016130 170204 STFPS RG :GET THE FPS. 
46 016132 012700 000200 #200.RO “SET FD MODE 
47 016136 170100 LDOFPS R 
49 016140 012700 016304 MOV #DIVFT.RO :GET THE RESULT OF THE DIVF. 
30 016144 174010 STD ACO, (RO) 
52 016146 010102 MOV :SAVE THE DATA IN CASE OF ERROR. 
53 016150 102 00124 MOV 
54 016154 02 000004 ADD 
55 016160 01 2 001242 MOV 
56 16164 ; ADD #4 ,R2 
57 016170 01 3 001 44 ; MOV R2.$TMPS 
58 016174 12737 016 001246 MOV ADIVET. $STMP6 
59 016202 010437 001250 MOV R4,STMP 
60 01 016137 000016 001252 MOV 16(R1) ,STMP10 
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TEST # 6 ~ DIVF TEST 





016214 021061 000010 CMP (RO), 10(R1) its THE RESULT CORRECT? 
1 1011 BNE 1 ‘JF INCORRECT BRANCH. 
16 6 Bi 000002 000012 CMP 2(RO),12(R1) 
1 BNE 10$ 
016232 026104 000016 cmp 19(R1) RG s1S FPS CORRECT? 
ot Soe 20 BNE 15$ *I1F INCORRECT BRANCH. 
16240 000161 000026 JMP 26(R1) “JF NO ERRORS OCCURRED RETURN. 
016244 021061 000020 10$: CMP (RO) ,20(R1) : DOES THE INCORRECT RESULT 
016250 001 010 BNE 11$ MATCH THE ANTICIPATED INCORRECT RESULT. 
016252 026061 000002 000022 CMP 2(RO) ,22(R1) 
016260 001004 BNE 11$ :BRANCH IF NO. 
016262 010102 MOV R1,R2 :1T MATCHED SO RETURN TO THE ERROR 
“REPORT AT THE CALLING ROUTINE. 
016264 062702 000024 ADD #24,R2 
16270 000112 JMP (R25 
01627 11$: sREPORT RESULT INCORRECT. 
016272 104023 128: ERROR +23 
016274 000162 000026 13$:  JMP § 26(R1) 
016300 15$: sREPORT FPS INCORRECT. 
016300 104032 16$: ERROR +32 
016302 000774 BR 13$ 
016304 000000 000000 000000 DIVFT: .WORD 0,0.0,0 
016314 CCCDONE : 
016314 104412 RSETUP :GO_INITIALIZE THE FPS AND STACK: AND 
IF THE USER HAS EXPRESSED 


: THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH _— (HAS 
:THE USER TYPED CONTROL G?) 
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TEST # 7 = DIVD TEST 


3301 » SBTTL TEST # 7 = DIVD TEST 
sREREERERAAAAAAAAAAAAAAAEAT AERA AAA AA TATRA AE AA ATR RARER TRAE 


;*TEST 7 DIVD TEST 


: sTHIS IS A TEST OF THE DIVD INSTRUCTION. NOTE THAT A SUBROUTINE JS 
; #USED TO SET UP THE OPERANDS. EXECUTE THE INSTRUCTION AND CHECK THE RESULTS. 


jtarecsuseaseacncenseusenencensnaeasanenscnsnasnssasatarseseees 





016316 000004 Fs 
3308 016 jozye TEST WITH POSITIVE OPERANDS AND IN ROUND MODE. 
O16 G 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1 737 017010 JSR PC,DIVOSUB 
Ot 277 000000 000000 1S: “WORD 34277,0,0,0 sAC 
16 040277 000000 000000 es: “WORD 40277.0.0.0 “FSRC 
016 34200 000000 000000 3S: "WORD 34200.0.0.0 RES 
016 00 4$: 200 “FPS BEFORE EXECUTION. 
10 O16 00 “FPS AFTER EXECUTION. 
11 01 177777. 177777 +«177777~=COS$: “WORD =1,-1,-1,-1 “ERROR RES. 
1 016 104033 6S: ERROR +33 
14 :DIVD WITH AC NEGATIVE AND FSRC POSITIVE IN TRUNCATE MODE. 
15 016374 DDD2: 
016374 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
16 01637 JSR PC DIVDSUB 
17 01640 000000 1$: . WORD 134277 ,0,0,0 AC 
18 01641 060000 2$: “WORD 6.6.6 *FSRC 
19 0164 000000 3$: “WORD 137506. 6.6.0  :RES 
0164 4$: 07 “FPS BEFORE EXECUTION. 
1 0164 10 “FPS AFTER EXECUTION. 
é 0164 177777 5$: “WORD -1,-1,-1,-1 “ERROR RESULT. 
3 16446 6$: ERROR +33 
325 <DIVD TEST WITH OPERANDS BOTH NEGATIVE AND IN TRUNCATE MODE. 
3326 016450 DDD3: 
016450 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
7 01645 737 017010 JSR PC BIVDSUB 
16456 1 900000 000000 1$: . WORD rh ZAC 
16466 140 000000 es: “WORD 140 ZF SRC 
16476 034 000600 000000 3$: “ WORD 300,0 ° ° iRES 
1 0165 0 4$: 250 FPS BEFORE EXECUTION. 
1651 40 240 ZFS AFTER EXECUTION. 
01681 000000 000000 5S: WORD 34200.0,0.1 RES. 
, 16522 104 6$: ERROR +3 “TRUNCATION ERROR. 
stan gD1yD WITH AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 
16524 104413 LPERR :SET UP THE LOOP ©: ERROR ADDRESS. 
3 183 S50 B00000 1$ JSORD 5450 OO AC 
0 016542 140 099000 Maite $: “WORD 140 06.5.9.0 “FSRC 
1016552 134 000000 3$: D 134200,0.0,1 :RES 
é 16 4S: 30 “FPS BEFORE EXECUTION. 
16564 10 10 “FPS AFTER EXECUTION. 
4 016 1 000000 000000 5$: WORD 134200.0,0.0 “ERROR RES. 
5 016576 104036 6$: ERROR +36 “ROUND ERROR. 
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177777 


177777 


000000 


177777 





-DIVD TEST. 
ODDS: 
LPERR 
JSR 
1$: . WORD 
$3: . WORD 
$: WORD 
. WORD 
4$: 7647 
7650 
5$: . WORD 
6$: ERROR 


sDIVD TEST WITH 
DDD6: 


SEQUENCE 6/7 


;SET UP THE LOOP ON ERROR ADDRESS. 


PC .DIVDSUB 
100400,0,0,0 sAC 
169 "13s so tres. 
12 O31 328 : 


sFPS BEFORE EXECUTION. 
SFPS AFTER EXECUTION. 
aah ewi,ot ;ERROR RES. 


AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC DIVDSUB 
1$: “word 400 0 4° ZAC 
28: “WORD 14008 6,0 0 *FSRC 
$: “WORD 36.163 $3 : “RES 
“WORD 
4$: 7707 sFPS BEFORE EXECUTION. 
7710 “FPS AFTER EXECUTION. 
S$: .WORD -1,-1,-1,-1 ‘ERROR RES. 
6$: ERROR +35 
-DIVD TEST. 
DDD7: 
LPERR ae :SET UP THE LOOP ON ERROR ADDRESS. 
1$: . WORD iia f ZAC 
“WORD 
2$: WORD = FSRC 
“WORD 
3$: WORD Bi iRES 
4$: 7717 FPS BEFORE EXECUTION. 
7700 “FPS AFTER EXECUTION. 
S$: .WORD -1,-1,-1,-1 TERROR RES. 
6S: ERROR +35 
JMP DDDDONE ;GO TO NEXT TEST. 
: THIS SUBROUTINE, DIVDSUB, IS CALLED TO SET UP, EXECUTE 
; AND CHECK THE RESULT OF A DIVD INSTRUCTION. IT IS CALLED THUS: 
: JSR PC,DIVDSUB 
: CARG: .WORD X,X,X,X :AC OPE 
: FSRCARG:.WORD X,X,X,X FSRC OPERAND 
; RES: .WORD X,X,X,X EXPECT ED RESULT 
: FPSB: .WORD X “FPS BEFORE EXECUTION 
: FPSA: .WORD xX ZFPS AFTER EXECUTION 
: ERRES: .WORD X,X,X.X RESULT 
: ERR: ERROR +X RESULT ERROR 
: CONT: “RETURN ADDRESS : 


D 
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TEST # 7 = DIVD TEST 


00 ; 
ht >THE OPERANDS ARE SET UP (USING ACO FOR THE 


AC OPERAND). THE 
3402 FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, 


E i 
DIVD IS EXECUTED. 
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001236 


001246 
001252 


SEQUENCE 69 


AFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 
“EXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 

“I$ CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WA 
: INCORR EN R ED. IF THE RESULT WAS INCORRECT IT 


T TO ANALYSE T 
THEN CONTROL IS PASSED 


: THE E CALL 
; THEN THE FAILUR T N DIVDS 
:CONT. IF NO ERRORS ARE DETECTED THEN DIVDSUB RETURNS CONTROL 


R. I 
IS REPORTED I 





DIVDSUB: MOV (SP)+,R1 “GET A POINTER TO THE ARGUMENTS. 
V #200,R0 :SET FD MODE. 
LDFPS RO 
MOV R1.RO :SET UP THE ACO OPERAND. 
LOD (RO) ACO 
MOV 30(R1) RO sLOAD THE FPS. 
LDFPS RO 
MOV #1$,$TMP2 
MOV R1.RO sESTABLISH A POINTER TO FSRC. 
ADD #10,R0 
1$: DIVD  (RO).ACO sEXECUTE THE TEST INSTRUCTION. 
STFPS R4 :GET THE FPS. 
V #200.R0 “SET FD MODE. 
LDFPS RO 
MOV #DIVDT.RO :GET THE RESULT. 
STD ACO, (RO) 
MOV :SAVE DATA IN CASE OF ERROR. 
MOV 
ADD 
MOV 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV sCHECK THE RESULT. 
ADD 
MOV 
MOV 
2$: CMP (R3)+, (R3)+ 
BNE 10$ :BRANCH IF RESULT INCORRECT. 
S0B R5,2$ 
CMP 32(R1) .Ré :1S FPS CORRECT? 
BNE 15$ “BRANCH IF INCORRECT. 
JMP 46(R1) “RETURN. 
10$: MOV R172 sWAS INCORRECT RESULT ANTICIPATED? 
ADD #34 ,R2 
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or7an0 


000044 


000046 


000000 000000 


11$: 


DIVDT: 


DDDDONE : 


RSETUP 


#DIVDT,R3 
#4,R 
(Rd)+, (R3)+ 
12$ :BRANCH IF NO. 
nS. 11$ 
R1.R2 s1F THE INCORRECT RESULT WAS 
Fi R2 “ANTICIPATED RETURN T 
“ERROR REPORT IN THE CALLING 
(R2) “ROUTINE. 
= :REPORT RESULT INCORRECT. 
46(R1) 
sREPORT FPS INCORRECT. 
‘te 
14$ 
0,0,0,0 


:GO INITIALIZE THE FPS AND STACK; AND 

:SEE IF THE USER HAS EXPRESSED 

3 THE DESIRE TO CHANGE THE SOFTWARE 
TUAL CONSOLE SWITCH — (HAS 

* THE USER TYPED CONTROL G?) 
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-SBTTL TEST # 10 = MULF TEST 


© RREEAEEAEAEAEEEAEAAEEEEEEEAEAEAAEAAEARERAAEAEAAAEEEREEARAREAEEAREREE 


**TEST 10 MULF TEST 


;* 
s*THIS IS A TEST OF THE MULF INSTRUCTION. IT MAKES USE OF A SUBROUTINE 
>*TO SET UP THE OPERANDS, EXECUTE THE MULF INSTRUCTION AND CHECK THE 


> RESULTS 


. 
© RAE AAAARAEARAKRAEAEAEAREEEEEEEAEERAEAEREEAAREAAREREEAEEARERAREKEEREEEEEE 


TST10: SCOPE 


MULE WITH (FSRC=AC=0) 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC MULF SUB 
1$: -WORD 0,0 ZAC 
$: “WORD 0,0 *FSRC 
$: ~ WORD 0,0 e 
4$: 7517 “FPS BEFORE EXECUTION. 
7504 “FPS AFTER EXECUTION. 
5$: .WORD <-1,-1 
6$: ERROR +37 
:MULF WITH (FSRC=0). 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC MULE SUB 
1$: “WORD 71625, 34435 ZAC 
2$: “WORD 0,0 *FSRC 
3$: “WORD 0,0 RES 
4s: 13 “FPS BEFORE EXECUTION. 
4 “FPS AFTER EXECUTION. 
5$: -WORD -1,-1 “ERROR RES. 
é$: ERROR +37 
:MULF WITH (AC=0) 
pees. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC .MULF SUB 
1$: . WORD AC 
$: “WORD 071625,153443  :FSRC 
$: ~ WORD 0,0 b ES 
4$: 75 “FPS BEFORE EXECUTION. 
75 “FPS AFTER EXECUTION. 
5$: ,WORD <-1,-1 “ERROR RES. 
6$: ERROR +37 
MULE WITH AC POSITIVE AND FSRC POSITIVE IN ROUND MODE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC .MULF SUB 
1$: .WORD  40200,0 SAC 
3: “WORD 40177,-1 *FSRC 
$: “WORD 40177,-1 : 
4$ 17 “FPS BEFORE EXECUTION. 
0 “FPS AFTER EXECUTION. 
S$: “WORD 140177,-1 “ERROR RES. 


H 
CKFPBCO FP11F FLTG PNT PRT B MACRO M1113 20-OCT-81 08:27 PAGE 0-9 ! SEQUENCE 
TEST # 10 = MULF TEST 


a3 017432 104041 6S: ERROR +41 :BAD SIGN. 
5 zMULF WITH AC POSITIVE AND FSRC POSITIVE IN TRUNCATE MODE. 
539 0174 EEES: 

174 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
540 0174 004737 020034 JSR PC MULF SUB 
541 017442 040177 177777 1$: “WORD 40177,-1 AC 
348 17466 040200 $: “WORD 40200, SF SRC 
354 1745 0177 (177777 $: "WORD 40177,-1 S 
$44 017456 000040 4$: 40 “FPS BEFORE EXECUTION. 
545 017460 000040 40 ZFPS AFTER EXECUTION. 
546 017 037777 177777 S$: ,WORD 37777,-1 RES. 
547 017466 104042 6S: ERROR +42 <§T 252 TO 044 INTO 444 (BUT Y62) 
3278 “MUL. NORMALIZATION FAILURE. 
3550 -MULF WITH BOTH OPERANDS POSITIVE NORMALIZE TEST. 
3551 017470 EEE6: 

017470 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3552 17472 004737 020034 JSR PC amy ULF SUB 
553 017476 040100 000000 1$: WORD 100 ZAC 
3554 017502 040100 000000 2$: WORD 10190" S zFSRC 
3555 017506 040020 000000 3$: “WORD 40020. 0 
3556 017512 000012 4$: i2 “FPS BEFORE EXECUTION. 
557 017514 000000 0 ZFPS AFTER EXECUTION. 
3558 017516 042040 000000 5$: . WORD 42040,0 RES. 
3559 017522 104043 6S: ERROR +4 *ST 252 TO 444 INTO 042 (BUT Y62) 
3560 “MUL. NORMALIZATION FAILURE. 
3562 :MULF WITH BOTH OPERANDS POSITIVE IN ROUND MODE. 
356 017524 EEE?: 

104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

3564 0) 7596 004737 020034 JSR PC JMULF SUB 
3565 0173 32 017500 000000 1$: WORD ZAC 
3 023652 12525 2$: “WORD a3652. 125252 3 FSRC 
3567 Here 003177 17777 3$: “WORD RES 
3568 017546 007417 4$: 7417 “FPS BEFORE EXECUTION. 
3569 017550 007400 7400 “FPS AFTER EXECUTION. 
3570 017552 177777 177777 S$: .WORD -1,-1 
3571 017556 104037 6S: ERROR +37 : 
3276 MUL WITH AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 
3574 017560 FEES: 

017560 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
575 017562 004737 020034 JSR fren ae 
576 017566 040342 000000 1$: WORD 4054 AC 
577 017572 176542 2$: WORD 654.0 *FSRC 
3578 017576 176707 102000 3$: WORD 176 07. 102000 :RES 
3379 017602 000007 4$: 7 “FPS BEFORE EXECUTION. 
580 017604 000010 10 “FPS AFTER EXECUTION. 
3581 017606 076507 102000 7$: -WORD 76507,102000 ERROR RES. 
3582 017612 104041 6$: ERROR +41 *BAD SIGN. 
3584 -MULF WITH AC NEGATIVE AND FSRC POSITIVE IN ROUND MODE. 
3585 017614 FEES: 
aus S766 SSC ozo Pa, “Oe mn em. 
3286 $1762 140200 oF 000 1$: WORD 146000.0 AC 
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SEQUENCE 
$: “WORD 7417,7417 ;FSRC 
$: "WORD  107417,7417 
4$: 0 “FPS BEFORE EXECUTION. 
10 “FPS AFTER EXECUTION. 
S$: “WORD 7417,7417 TERROR RES. 
6$: ERROR +41 “BAD SIGN. 
MULE WITH BOTH OPERANDS NEGATIVE IN ROUND MODE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR LF SUB 
1$: . WORD 144600. AC 
2$: “WORD 134 “FSRC 
3$: “WORD 60400, 6° iRES 
4$: 17 ‘FPS BEFORE EXECUTION. 
0 “FPS AFTER EXECUTION. 
5$: “WORD  160400,0 “ERROR RES. 
é$: ERROR +41 “BAD SI 
MUL BOTH OPERANDS NEGATIVE IN ROUND MODE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC .MULF SUB 
1$: -WORD  140300,0 ZAC 
2$: “WORD 160000.1 *FSRC 
3$: “WORD  60100,2 :R 
4$: i0 “FPS BEFORE EXECUTION. 
0 “FPS AFTER EXECUTION. 
5$ .WORD 60100,1 “ERROR RES. 
ERROR +44 = ROUND FAILURE. 


POSITIVE AND FSRC NEGATIVE IN TRUNCATE MODE. 
:SET UP THE LOOP ON ERROR ADDRESS. 









JSR PC .MULF SUB 
1$: WORD 1 ZAC 
2$: “WORD  140300,0 “FSRC 
3$: "WORD  160100,1 :RES 
4$: 7547 FPS BEFORE EXECUTION. 
7550 CFPS AFTER EXECUTION. 
5$: WORD 169100,1 RES. 
6$: ERROR +4 “TRUNCATION ERROR. 
MULE WITH AC POSITIVE AND FSRC POSITIVE IN ROUND MODE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC MULE SUB 
1$: . WORD SAC 
$: “WORD :F SRC 
$: ~ WORD 
4$: 14 FPS BEFORE EXECUTION. 
0 FPS AFTER EXECUTION. 
5$: ,WORD  60077,2 RES. 
6S: ERROR +44 “ROUND FAILURE. CONSTANT BAD. 
JMP EEEDONE :GO TO THE NEXT TEST. 
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3669 
3661 
3063 
3665 
3666 
3667 020034 012601 
3668 012700 000200 
3669 170100 
3670 010100 
3671 172410 
367 016100 000014 
36 170100 
3674 012737 020072 001236 
3675 010100 
<076 062700 000004 
36 
3678 171010 
se0) 
3681 708 000200 
SF ecotos e170 
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001246 
001252 








: THIS SUBROUTINE ULF SUB - IS CALLED TO SET UP, EXECUTE 
“AND CHECK THE RESULT OF A MULF INSTRUCTION. If IS CALLED THUS: 
; JSR PC ,MULF SUB 
: ACARG: .WORD X,Xx :AC_OPERAND 
: FSRCARG:.WORD X.X *FSRC OPERAND 
: RES: .WORD X.X ; EXPECTED RESULT 
° FPSB: .WORD X [FPS BEFORE EXECUTION 
: FPSA: .WORD X “FPS AFTER EXECUTION 
: ERRES: .WORD X,X TERROR RESUL 
: ERR: ERROR +X “RESULT ERADR 
: CONT: “RETURN ADDRESS 
“THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
“FPSB IS LOADED I INTO THE FPS. THE INSTRUCTION, MULF IS EXECUTED. 
AFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 
“EXPECTED CORRECT RESULT, RES. IF IT Is pGORRECT THEN THE FPS 
71S CHECKED WITH THE EXPECTED CORRECT THE 
“INCORRECT THEN IT IS REPORTED. IF ole R 
°1S COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE 
iT CT RES TCHED ERRES THEN CONTROL I 
THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 
“THEN THE FAILURE IS REPORTED IN MULFSUB AND C 
: CONT. IF NO ERRORS ARE DETECTED THEN MULFSUB RETURNS C 
MULF SUB: MOV (SP)+,R1 -GET A POINTER TO THE ARGUMENTS. 
MOV #200,R0 *SET FD MODE. 
LDFPS RO 
MOV Ri :LOAD THE AC OPERAND. 
LDD Rhone ACO 
MOV 14(R1) RO sLOAD THE FPS 
LDFPS 
MOV #1$.$TMP2 
MOV R1,RO 
ADD #4,R0 sESTABLISH A POINTER TO FSRC. 
1$: MULF (RO) .ACO :TEST INSTRUCTION. 
STFPS RG :GET THE FPS. 
MOV #200,R0 “SET FD MODE 
LDFPS R 
MOV FT.RO :GET THE RESULT OF THE MULF. 
STD ; (RO) 
MOV R1,R2 :SAVE THE DATA IN CASE OF ERROR. 
MOV R2,$TMP3 
ADD #4-R2 
MOV Re.$! "STMP4 
ADD 


MOV Ro. STMPS 
MOV #MAULF T ~ 


MO 
MOV 16(R1) ,STMP10 
CMP (RO) ,10(R1) ;1S THE RESULT CORRECT? 


SEQUENCE 


74 
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IF INCORRECT BRANCH. 


BNE 
000002 000012 Ene 0),172(R1) 


sss .. 

mm 
See & 
Ua 
=—n— 
ono 
ADO 


us i 000016 CMP 16(R1) RG :1S FPS CORRECT? 
1020 BNE 15$ ‘IF INCORRECT BRANCH. 
000161 000026 JMP 26(R1) “IF NO ERRORS OCCURRED RETURN. 
: — 310 1061 000020 10$: CMP (RO) .20(R1) : DOES THE INCORRECT RESULT 
1010 BNE 11$ MATCH THE ANTICIPATED INCORRECT RESULT. 
026061 000002 000022 CMP (RO) 22(R1) 
by 001004 BNE 11$ :BRANCH IF NO. 
3711 020226 010102 MOV R1,R2 :1T MATCHED SO RETURN TO THE ERROR 
‘REPORT AT THE CALLING ROUTINE. 
13 020230 062702 000024 ADD #24,R2 
3714 34 000112 JMP (R2) 
3716 920 36 11$: sREPORT RESULT INCORRECT. 
1 3% 104037 128: ERROR +37 
3718 020240 000161 000026 13$: § JMP 26(R1) 
3720 020244 15$: sREPORT FPS INCORRECT. 
3721 020244 104040 16$: ERROR +40 
3722 020246 000774 BR 13$ 
3724 020250 000000 000000 000000 MULFT: .WORD 0,0,0,0 
3726 020260 EEEDUNE : 
0202460 104412 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
“SEE IF THE USER HAS EXPRESSED 
“THE DESIRE TO CHANGE THE SOFTWARE 
‘VIRTUAL CONSOLE SWITCH REGISTER (HAS 
‘THE USER TYPED CONTROL G?). 
3727 
3728 
3736 
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CKFPBCO FRPIIF FLTG ONT PRT B SEQUENCE 76 
TEST # 11 = MULD TEST 
3737 -SBTTL TEST # 11 = MULD TEST 
{RAEAAAAAAAAAAAAAAARERAEAEAAARAAAAEREEAERAAAERAERER ARERR AREA AES 
: TEST 11 MULD TEST 
:eTHIS IS A TEST OF THE MULD INSTRUCTION. NOTE THAT A SUBROUTINE IS 
“#USED TO SET UP THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND 
; CHECK THE RESULTS. 
Sallie ariel nee eentieeeeeneenneaseneeenneinoeennnenet 
—— 020262 000004 iisens SCOPE 
3739 *MULD TEST WITH AC POSITIVE AND FSRC POSITIVE. 
740 020264 EFFI: 
0 Oe 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3741 020 t 004737 020550 ian a JSR . bebe 
308 § $5 $9500 177777 177777 28: . WORD 8 --1,-1,-1 :FSRC 
3744 0 31 023777 177777 #177777 «33: "WORD 23777.-1.-1,-1 :RES 
3745 2 217 4$: 317 “FPS BEFORE EXECUTION. 
246 020324 000200 200 “FPS AFTER ECECUTION. 
3747 020326 023777 177777 000000 S$: “WORD 23777,-1,0,0 ; ERROR RES. 
3748 020336 104047 é$: ERROR +47 “BAD CONSTANT USED IN ALGORITHM 
3749 “USED 24 INSTEAD OF 56. 
3751 :MULD TEST WITH BOTH OPERANDS POSITIVE TRUNCATION TEST. 
3752 020340 FFF2: 
020340 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3753 020342 004737 020550 JSR BC MULDSUB 
3754 020346 065400 000000 000000 1S: -WORD  65400,0,0,1 AC 
3755 020356 037577 177777 177777 2$: WORD 7E9" -=1,-1,-2 :FSRC 
3756 020366 064777 177777 #177777 «38: "WORD 64777.-1.-1.-1 =:RES 
3757 020376 000247 4$: 47 “FPS BEFORE EXECUTION. 
3758 020400 000240 40 “FPS AFTER EXECUTION. 
3759 020402 065 000000 000000 5S: “WORD 65000.0.0.0 TERROR RES. 
3760 020412 104050 6$: ERROR +50 : TRUNCATION ERROR. 
376 MULD TEST WITH BOTH OPERANDS NEGATIVE IN ROUND MODE. 
3763 020414 FFF3: 
020414 104413 . LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3764 020416 004737 020550 JSR i By Si 
3765 0 22 137577 177777 177777 1$: . WORD ? = 5] ,72 :AC 
3766 0204. 165400 000000 000000 2S: “WORD 16540 *FSRC 
767 020442 065000 000000 000000 3: “WORD 00.0,6,1 *R 
768 52 007717 4$: 7717 “FPS BEFORE EXECUTION. 
769 54 007700 7700 “FPS AFTER EXECUTION. 
3770 020456 064777 177777 177777 S$: ,WORD  64777,-1,-1,-1 :ERROR RES. 
577 020466 104051 6$: ERROR +51 :ROUND ERROR. 
3778 " MULD TEST WITH AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 
70 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
775 0 72 004737 020550 JSR PC ote 
206 76 0175 000000 1$: WORD ! § AC 
7 0 506 123652 12 2$: WORD ar: 52 *FSRC 
778 020512 12525 1¢5 S WORD 
779 020516 103177 177777 177777 3$: “WORD : ote? -1,-1 RES 
780 020526 000260 4$: 200 “FPS BEFORE EXECUTION. 
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001236 


SEQUENCE 
210 FPS AFTER EXECUTION. 
S$: WORD 193200.0.0,0 ZERROR R 
6S: ERROR +5 “ROUND ERROR (BAD CONSTANT). 
JMP FFF DONE 
: THIS SUBROUTINE MULDSUB IS CALLED TO SET UP, EXECUTE 
SAND CHECK THE RESULT OF A MULD INSTRUCTION. IT IS CALLED THUS: 
,MULDSUB 
XX M ZAC OP 
XXX FSRC OPE 
x XX s EXPECTED 


RESUL 
FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ze RESULT 


x 
;RESULT ERROR 
[RETURN ADDRESS 
NG ACO F C OPE 
THE ION, MULD 1S EXECUTED. 
TI AGAINST T 









ATTEMPT TO ANALY 






HED ERRES THEN CONTROL IS PASSED TO 
“THE E THE INCORRECT RESULT DID NOT MATCH ERRES 
“THEN THE FAI TED IN MULDSUB AND CONTROL IS PASSED TO 
:C0 TECTED THEN MULDSUB RETURNS C 
MULDSUB MOV (SP)+,R1 -GET A POINTER TO THE ARGUMENTS. 
V #200,R0 sSET FD MODE. 
LDFPS R 
MOV R1.RO :SET UP THE ACO OPERAND. 
LOD (RO) ACO 
MOV 30(R1) RO *LOAD THE FPS. 
LDFPS RO 
MOV #13, $TMP2 
MOV R1.RO sESTABLISH A POINTER TO FSRC. 
ADD #10,R0 
1$: MULD (RO) .ACO sEXECUTE THE TEST INSTRUCTION. 
STFPS RG :GET THE FPS. 
V #200.RO “SET FD MODE. 
LDFPS R 
MOV DT.RO :GET THE RESULT. 
STD ACO. (ROD 
MOV R2 :SAVE DATA IN CASE OF ERROR. 
mov Rossin 
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TEST # 11 =~ MULD T 





3838 020640 37 001 42 MOV Re STMPS 
9 020644 2 1 ADD 6.R 
0 50 ; ; 1244 MOV R2, shes 
1 $4 012737 1990 001246 MOV #MULDT STMP6 
‘ 010437 001250 MOV 4,$T 
016137 500032 001252 MOV SRI). STMP10 
5 020674 01010 MOV R1,.R2 :CHECK THE RESULT. 
020676 702 000020 ADD #26,R2 
7 020702 012703 021000 MOV #MULDT.R3 
0 706 012705 000004 MOV mn 
9 0 71 3 2$: CMP (R2)+, (R3)+ 
50 020714 001 BNE :BRANCH IF RESULT INCORRECT. 
51 020716 07750 S08 R5,2$ 
3g 020720 026104 000032 CMP 32(R1) .R4 :1S FPS CORRECT? 
54 020724 001023 BNE “BRANCH IF INCORRECT. 
55 020726 000161 000046 JMP 46(R1) RETURN. 
3$ 020732 01010 10$: MOV R1.R2 :WAS INCORRECT RESULT ANTICIPATED? 
58 020734 06270 34 ADD #34 ,R2 
59 020740 012703 021000 MOV #MULDT.R3 
3800 020744 012705 4 MOV #6 
1 020750 02 223 11$: CMP (R2)+, (R3)+ 
020752 001005 BNE :BRANCH IF NO. 
020754 077503 S08 R5.11$ 
0 756 010102 MOV R1_.R2 :IF THE INCORRECT RESULT WAS 
5 020 062702 000044 ADD #44 ,R2 “ANTICIPATED RETURN TO THE 
“ERROR REPORT IN THE CALLING 
3867 020764 000112 JMP (R2) *ROUT INE. 
386 020766 12$: :REPORT RESULT INCORRECT. 
020766 104246 13$: ERROR +246 
372 ° 020770 000161 000046 14$:  § JMP 46(R1) 
3876 15$: :REPORT FPS INCORRECT. 
3874 Set 104046 16$: ERROR +46 
0776 000774 BR 14$ 
7 021000 000000 000000 000000 MULDT: .WORD 0,0,0.0 
8 021010 FFF DONE 
021010 104412 RSETUP 


e3ee 


:GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 

:THE DESIRE 70 CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


TEST TITLE: UNDER/OVERFLOW, USING MULF WITH TRAPS DISABLED 


RS — 
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3892 - SBTTL TEST # 12 = SEE COMMENT ABOVE FOR TEST TITLE 


RARER RAAAAEEAEERAEREAE TARE RAAAARRARARER A RERARAEAEEREAEREREREE REE 


:*TEST 12 SEE COMMENT ABOVE FOR TEST TITLE 


: eTHIS IS A_ TEST OF THE OVERFLOW AND UNDERFLOW te USING 
3*THE MULF INSTRUCTION WITH TRAPS DISABLED. NOTE THAT A SUBROUTINE 
:*IS USED TO SET A THE CPERANDS, EXECUTE THE MULF INSTRUCTION AND 
; CHECK THE RESULTS. 


ehitnnantiiiinstesiebheeeneNseeNebeNneNeneNEtEttNt 





. 021012 000004 Pi SCOPE 
3894 sUNDERFLOW, WITH EXPONENT OF RESULT = -129 
95 021014 ill1: 
1014 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1 1g 004737 021240 JSR PC OVUNFNT 
1 020200 000000 1$: “WORD 20200,0 ZAC 
id 6 $350 $: “WORD  20000,0 "FSRC 
10 $: “WORD 0,0 RES 
1036 1 177777 4$: “WORD =1,-1 “ERROR RES. 
1 02104 000000 5$: 0 “FPS BEFORE EXECUTION. 
1044 4 “FPS AFTER EXECUTION. 
1046 a AE 6$: 12 :FEC 
904 021050 17777 -1 LAG 
905 021052 104117 7$: ERROR +117 St 31 TO 155 INTO 115 (BUT FIU) 
1054 060401 BR &% 
907 021056 104114 ERROR +114 
_—e 8$: 
910 sUNDERFLOW, WITH EXPONENT OF RESULT = -193 
911 021060 ill2: 
1060 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3518 SSioe6 976000 400000 1s: ‘won See 86 sae 
12 951093 910000 909000 33: WOnb 100000 ‘Boa 
15 1076 000000 000000 3$ -WORD 0,0 RES 
916 1102 01 000000 4$ “WORD  10000.0 : ERROR RES. 
17 021106 00501 5$ 5013 FPS BEFORE EXECUTION. 
18 0 1110 005004 5004 “FPS AFTER EXECUTION. 
19 02111 iF 6$: 12 FEC 
021114 17777 - “FLAG 
1 021116 104120 7$: ERROR +120 “SETTING FIUV OR FIV CAUSES TRAP 
; “WITH FIU CLEAR. 
311 0 000401 BR 8$ 
924 021122 104114 ERROR +114 
5 021124 8$: 
5 i OVERFLOW, EXPONENT OF RESULT = 128 
3928 021124 III3: 
1124 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1126 004737 021240 JSR C.OVUNFNT 
1132 060 1$ £6500.0 AC 
1 0211 $ “WORD $0°5 FSRC 
0 114 $: “WORD 0,0 RES 
9 1146 4$: “WORD 60000.0 “ERROR RES. 
9 02119 000000 5$: 0 “FPS BEFORE EXECUTION. 
35 021154 000006 é “FPS AFTER EXECUTION. 
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02115 10 6$: 10 3 
3 11 ree 
oo 021162 104121 7$: ERROR +121 “ST 333 TO 136 INTO 116 (BUT FIV). 
939 021164 000401 
3940 021166 104113 ERROR +113 
ape) 021170 8$: 
328 -OVERFLOW, EXPONENT OF RESULT = 130 
4 021170 1114: 
0 1179 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
3945 0 1172 006737 021240 JSR PC OVUNFNT 
1176 000000 1$: "WORD 6 : ; SAC 
947 021 000000 2$: “WORD  60200,0 “FSRC 
948 021 000000 3$: “WORD 0,0 *R 
9 021212 177777 177777 4$: "WORD -1,-1 “ERROR RES. 
3950 1 16 006011 5$: 6011 “FPS BEFORE EXECUTION. 
951 021 006006 6006 “FPS AFTER EXECUTION. 
95¢ 1222 000010 6$: 10 FEC 
1224 000000 0 FLAG 
54 021226 104122 7$: ERROR +122 “SETTING FIUV OR FIU WITH 
5 “FIV CLEAR CAUSES TRAP. 
3956 921230 000401 BR 8$ 
3957 021232 104113 ERROR +113 
3958 021234 000137 021650 8$: JMP 11 IDONE :GO TO NEXT TEST. 


: THIS SUBROUTINE, OVUNFNT, IS USED TO SET UP THE OPERANDS. EXECUTE 












THE MULF INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
3964 ‘OPERANDS UH WHICH SHOULD RESULT IN EITHER SVERFLOW OR UNDERFLOW. A CALL 
3965 ;TO IT IS MADE THUS: 
3967 : ACARG: .WORD X,X :AC OPERAND 
3968 : FSRCARG:.WORD X,X *FSRC OPERAND 
3969 : RES: .WORD X,X SEXPECTED RESULT 
: ERRES: .WORD  X.X RESULT 
971 : FPSB: .WORD X “FPS BEFORE EXECUTION 
97 : FPSA: .WORD X “FPS AFTER EXECUTION 
397 : FEC: .WORD X ae CTED FEC 
7%, : FLAG: .WORD X 1, OVER/UNDER FLOW FLAG 
75 : ERR1: ERROR +x : TRAP ERROR. 
76 : BR CONT 
77 : ERR2: ERROR +x :DATA, RESULT ERROR 
78 : CONT : “RETURN ADDRESS 
THE OPERANDS ARE SET OR). THEN 
1 “THE MULF INSTRUCTION THEN THE 
982 ORRECT THEN THE FPS IS 
; COMPARED Wi FPSA TURNS CONTROL 
5 


3991 








THE 
;REPORTS THIS FAILURE 
IS INCORRECT, THE INCORRE 
SANTI CIPATED FAILING DATA PATTE 
: THE RESULT WAS ANTICIPATED CORRE 
T THE ERROR 


WILL TRANSFER ROL TO 
RESULT WAS INCORRECT BUT WAS NOT AN 
;REPORT THE FAILURE AFTER WHICH CONT 


ee 
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3335 :1F A TRAP OCCURS (IT SHOULD NOT) THEN OVUNFNT WILL READ THE FEC. 
99 ;SHOULD THE FEC MATCH THE ANTICIPATED FEC OVUNFNT WILL 
sSTORE ALL DATA AND TRANSFER CONTROL TO THE ERROR CALL AT ERR1. IF THE 
; T THE SAME AS T A TW REPORT 


3995 “FEC IS NO HE ANTICIPATED FEC OVUNFNT WILL 
“THE ERROR AND RETURN TO CONT. NOTE THAT OVUNFNT USES THE FLAG 

399 *TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
3398 “UNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 
4000 021240 012601 OVUNENT: MOV (SP)+,R1 “GET A POINTER TO THE ARGUMENTS. 
4001 021242 012700 000200 MOV #200,RO0 sSET FD MODE. 
4002 021246 170100 LDFPS RO 
10be 021250 010100 MOV R1.RO :LOAD ACO, OPERAND. 
ie 021252 172410 LDD (RO) ,ACO 
4007 021254 010102 MOV R1,R2 :SAVE THE DATA PATTERNS IN CASE OF 
4008 021256 010237 001240 MOV R2.$TMP3 “ERROR. 
4009 021262 062 02 000004 ADD #4,R 
4010 021 $6 01 2 001242 MOV R2,$TMP4 
4011 021 062 , 000004 ADD #4,R2 
401g 021276 010237 001244 MOV Re STMPS 
401 0 1 0161 7 000022 001252 MOY 22(R1),$TMP10 
4014 1310 012737 021640 001246 MOV #OVENTT ,STMP6 
4016 021316 016100 000020 MOV 20(R1) RO :LOAD THE FPS. 
4017 021322 170100 LDFPS 
4018 021324 012737 021346 001236 #1$.STMP2 
4019 021332 012737 021532 000244 MOV #25$, FPVECT SET UP THE FP TRAP VECTOR IN CASE 
4021 021340 010100 MOV R1,RO “COMPUTE THE ADDRESS OF FSRC. 
40 é 021342 062700 000004 ADD #4,R0 
4024 021346 171010 1$: MULF (RO). ACO :TEST INSTRUCTION. 
4026 021350 170204 2$: STFPS 4 sGET FPS. 

021352 170305 STST RS “GET FEC. 

8 021354 012700 000200 MOV #200,R0 “SET FD MODE. 

021 170100 LDFPS RO 
40 0 1362 012700 021640 MOV #OVENTT,RO :GET THE RESULT. 
4031 1366 174010 STD ACO, (ROS 
4032 021370 010437 001250 MOV R4, STMP7 
4033 021374 010537 001254 MOV R5.STMP11 
4035 921400 012700 021640 MOV #OVENTT,RO :CHECK THE RESULT. 
4036 1404 01010 MOV R 
4037 1406 06270 000010 ADD #16,R2 . 
4038 1412 012703 000002 MOV 2 
4039 021416 0 2022 3$: CMP (RO) +, (R2)* 

00 1420 101 BNE 15 :BRANCH IF INCORRECT. 

4041 021422 077303 S08 R3,3$ 
4043 021424 026104 000022 CMP 22(R1) -R4 :WAS FPS CORRECT? 
4044 021430 001002 BNE 10$ “BRANCH IF FPS IS INCORRECT. 
4046 021432 000161 000036 4$: JMP 36(R1) sRETURN, TEST COMPLETED. 


4048 sREPORT INCORRECT FPS. 
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& 5761 000026 10$: TST (R1) WAS THE RESULT OVER OR UNDER FLOW? 
ist 85402 003 2 BNE $3§ ;BRANCH IF UNDERFLOW. 


;REPORT FPS BAD AFTER OVERFLOW. | 
11$: -_ hh eats 


fe : 

4056 021450 12$: ;REPORT FPS AFTER FLOW. 
405 051 1450 Los lig 133: ERROR +112 oa —— 
pet 021452 00076 BR 4$ 


ae a ae 


. Ff 
MACRO M1113 20-OCT-81 08:27 PAGE 23 












CKFPBCO FP11F FLTG PNT PRT B SEQUENCE 
TEST # 12 - SEE COMMENT ABOVE FOR TEST TITLE 

1 {RESULT INCORRECT. 

4 1454 012700 021640 MOV #OVENTT,RO :SEE IF FAILURE IS ANTICIPATED 
1 101 MOV R1.R2 * FAILURE. 
4064 021 ? 900014 ADD Rid R2 
4065 021 127 2 MOV 
4066 14 0 16$: CMP (RO) +, (R2)+ 
4 167 BNE sBRANCH IF NOT ANTICIPATED. 
1476 077303 S08 R3,16$ 

40 15 1010 MOV R1.R2 sERROR WAS ANTICIPATED SO RETURN 
4071 15 70 000034 ADD #34,R2 “TO THE ERROR REPORT IN THE CALLING 

72 021 10237 0012 MOV R2.$TMP2 *ROUTINE. 
4073 151 112 JMP (R2) 
4075 021514 005761 000026 17$: TST 26(R1) ;RESULT WAS NOT ANTICIPATED 
4076 RROR MUST BE REPORTED HERE. 
4077 “FIRST SEE IF ARGUMENT 
4078 ; HAVE RESULTED IN OVERFLOW OR UNDER 
4079 BY LOOKING AT THE 
4080 021520 001002 BNE 19$ “BRANCH IF UNDERFLOW EXPECTED. 
4082 sREPORT RESULT INCORRECT, EXPECTING 
4083 021522 104113 18$: ERROR +113 * OVERFLOW. 
4084 021524 000742 BR 4$ 
4086 021526 19$: sREPORT RESULT INCORRECT, EXPECTING 
4087 021526 104114 20$: ERROR +114 : UNDERF LOW. 
4088 021530 000740 BR 4$ 
4090 If AN FP TRAP OCCURS COME HERE. 
4091 021532 011602 55$: MOV (SP), :GET ADDRESS OF TRAP. 
4092 021534 022702 021350 CMP “WAS THE TRAP DURING THE MULF INSTRUCTION? 
4093 021540 00140 BEQ 2 “BRANCH IF YES. 
4094 021542 000137 037450 JMP FPSPUR ; OTHERWISE GO REPORT A SPURIOUS 
4096 021546 022626 26$: CMP (SP)+, (SP)+ sRESET THE STACK. 
4097 021550 010237 001236 MOV R2,$TMP2 ‘SAVE DATA FOR ERROR REPORT. 
4098 021554 170 STFPS R4 “GET FPS. 
4099 021556 170305 STST RS “GET FEC. 
4100 0 1560 012700 000200 MOV #200.RO “SET FD MODE. 
4101 021564 17 100 LDFPS R 
4102 0 1366 012700 021640 MOV #OVENTT,RO :GET THE RESULT. 
4103 021572 17401 STD Aco (ROS 
4104 021574 010537 001254 MOV RS, $TMP11 
4105 021600 020561 000024 CMP R5.24(R1) sWAS THE FEC ANTICIPATED? 
410 021604 001 BNE 278 “BRANCH IF NOT ANTICIPATED. 
4108 021606 010102 MOV R1.R2 sERROR WAS ANTICIPATED SO 
4109 021610 062702 009030 ADD #30,R2 “RETURN TO THE ERROR REPORT OF THE 
4110 *CALLING ROUTINE. 
41] 021614 000112 JMP (R2) 
4118 021616 005761 000026 27$: TST 26(R1) ANTICIPATED SO 
4114 . FIRST SEE IF EXPECTED 
4116 021622 001003 BNE 29$ RFLOW 
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SEE C 


000036 


000036 


28$: 


508: 


000000 000000 OVFNTT: 


II IDONE: 


ERROR 
JMP 
ERROR 
JMP 
. WORD 


RSETUP 
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+115 
36(R1) 


+116 
36(R1) 
0,0,0,0 


;REPORT TRAPPED ON OVERFLOW WITH FIV=0 


_gREPORT TRAPPED ON UNDER FLOW WITH FIU=0 


:GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
RE TO CHANGE THE 


; THE nae’ 


C 
L_ CONSOLE SWITCH REGISTER (HAS 


iV 
: THE "USER TYPED CCNTROL G?). 


TEST TITLE: UNDER/OVERFLOW, USING MULD WITH TRAP DISABLED 


SEQUENCE 


84 
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SEQUENCE 85 
TEST # 13 = SEE COMMENT ABOVE FOR TEST TITLE 
4142 .SBTTL TEST # 13 ~ SEE COMMENT ABOVE FOR TEST TITLE 
FS RAAAAAAAAARAERERAEREEEEEAAERARARARAEARERAERERAREARAERAAEAERAEE REE 
: TEST 13 SEE COMMENT ABOVE FOR TEST TITLE 
THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW CONDITIONS THAT CAN | 
“#ARRISE USING THE MULD INSTRUCTION WITH TRAPS DISABLED. A SUBROUTINE IS | 
“#USED TO SET UP THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND 
; * CHECK THE RESULTS. 
pa a a 
~_ 021652 000004 geese SCOPE 
4144 ; UNDERF LOW. EXPONENT OF RESULT=-129 
4145 021654 JJ1: 
021654 1046413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4146 1656 004757 022200 JSR PC OVUNDNT 
4147 02166 20200 000000 1$: WORD 206 : 0 AC 
4148 021666 127272 000000 “WORD  127272,0 
4149 021672 020000 000000 000000 2s: “WORD  20000,0,0,0 FSRC 
4150 1708 000000 000000 000000 3$: “ WORD 6.0.0.0 : 
4151 02171 000000 000000 i$: “WORD 0 “ERROR RES. 
413¢ 0 1716 127272 000000 “WORD  127272,0 
4153 021722 000200 5$: 300 :FPS BEFORE EXECUTION. 
4154 0217 4 000204 204 “FPS AFTER EXECUTION. 
4155 021726 000012 6$: 12 sFEC 
4156 0217 17777 -1 FLAG 
4157 021732 104131 7$: ERROR +131 “S$? 331 TO 155 INTO 115 (BUT FIU) 
4158 021734 000401 BR 8$ 
4159 021736 104132 ERROR +132 :ST 115 (BUT FD) 
4160 021740 8$: 
416¢ sUNDERFLOW, EXPONENT OF RESULT = -193 
4163 021740 jJJ2: | 
021740 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4164 021742 004737 022200 JSR PC. OVUNDNT 
4165 021746 019200 000000 1$: “WORD 1 0 AC 
4166 1752 123456 000000 "WORD  123456.0 
4167 021756 010000 000000 000000 2s: “WORD 1 ree 0.0 ;FSRC 
4168 021766 000000 000000 000000 3$: “WORD 0,0,0 ‘ - “RES 
169 021776 000000 123456 4$: WORD  0,0,123456,0 ;ERROR RES 
4170 022006 00521 5$: §213 “FPS BEFORE EXECUTION. 
4171 10 005204 5204 “FPS AFTER EXECUTION. 
4172 12 12 6S: 12 iFEC 
41 0 14 17777 -1 LAG 
417% 16 104133 7$ ERROR +133 SETTING FIUV OR FIV BAD. 
4175 0 000401 BR 83 
4176 0220 2 104132 ERROR +132 :ST 115 (BUT FD) 
payee 022024 8$: 
4179 ; OVERFLOW, EXPONENT OF RESULT = 128 
4180 0 4 JJJ3: 
4 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4181 004737 022200 JSR YUNDNT 
4182 060 960000 1$: . WORD 603 SAC 
41 54 “ WORD 3 4 ,: 
4184 0 e042 060000 000000 000000 28: “WORD 60000,0.0,0 =F SRC 
4185 022052 000000 000000 000000 3$ “WORD 0,0,0, “RES 


er a ee 
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000000 065432 4$: .WORD 0,0,65432,0 sERROR RES. 
a] S$: 300 “FPS BEFORE EXECUTION. 
41 7% 06 cERS AFTER EXECUTION. 
re. f 1 6$: } 
2191 102 1041 7$: ERROR +134 FL HAS 33 TO 136 INTO 116 (BUT FIV) 
4192 022104 1 
4193 0 106 104135 ERROR +135 :ST 116 (BUT FD) 
419% 02211 8$: 
4199 
4199 j OVERFLOW, EXPONENT OF RESULT = 130 
sites 5 110 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4199 022112 004737 022200 JSR PC OVUNDNT 
4200 02211 1$: . WORD 125388 ZAC 
4201 022122 125 WORD 2,0 
4 126 000000 000000 a8: “WORD $360. 6° 0,0 sFSRC 
4 1 000000 000000 $: “WORD *R 
4204 022146 000000 000000 125252 4$: "WORD 0.0.125252,0 ERROR RES. 
4205 022156 006211 5$: 6211 “FPS BEFORE EXECUTION. 
4206 022160 006206 06 “FPS AFTER EXECUTION. 
(50m O5516% 00000 = FLAG 
it 029166 104136 7$: ERROR +136 SETTING FIUV OR FIV BAD. 
421 0004 
4211 022172 104135 ERROR +135 -ST 116 (BUT FD) 
agg 022174 000137 022610 8S: JMP JJJDONE ;GO TO NEXT TEST. 
4214 : THIS SUBROUTINE, OVUNDNT, IS USED TO SET UP THE OPERANDS, EXECUTE 
4215 “THE MULD INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
4216 “OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
4g? “TO IT IS MADE THUS: 
t519 ; XMM OM :AC OPERAND 
4220 : XM MX :FSRC OPERAND 
4221 : KX XX : EXPECTED RESULT 
4222 : XXX OX RESULT 
4223 : x “FPS BEFORE EXECUTION 
4226 : x “FPS AFTER EXECUTION 
4225 : ¥ sEXPECT D FEC 
4226 : x :0/-1, OVER/UNDER FLOW FLAG 
4227 : +X = TRAP ERROR. 
4 ; 
1559 : +X :DATA, RESULT ERROR 
4230 ; “RETURN ADDRESS 
4231 
4 op ACO AS THE ACCUMULATOR). THEN 
153% MUL D. IF NOT THEN THE 
4234 IF THE RESULT IS CT THEN THE FPS IS 
4235 RESULT 1S WITH PSA. 1S CORREC T RETURNS CONTROL 
4236 *TO THE CALLING . IF THE F 
4237 : RETURNS TO 
4238 : ORRE CT RESULT 
4239 ZANTICIPATED FAILING DATA PATTERN, ERRES. 
4240 TH § ANTICIPATED CORRECTLY TO 
4261 ERROR CALL 





er ee — es 
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| 
IF THE | 


4 42 ;RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNDNT WILL 
426 REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
4264 “TF A TRAP OCCURS (17 SHOULD NOT) THEN OVUNDNT WILL READ THE FEC. 
e345 : THE FEC MATCH THE ANTICIPATED FEC OVUNDNT W 
4246 “STORE ALL DATA AND FER TO THE ERROR CALL AT ERR}. 
a “FEC IS NOT TH AS THE ANTICIPATED FEC OVUNDNT WILL REPORT 
4248 “THE ERROR AND RETURN TO CONT. NOTE THAT OVUNDNT USES THE FLAG 
4249 *TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
es “UNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 
00 012601 OVUNDNT : (SP)+, “GET A POINTER TO THE ARGUMENTS. 
$ 03 2 012700 000206 V 200.0 sSET FD MODE. 
8 022206 170100 LDFPS R 

¢ 0 010100 MOV R1.RO :LOAD ACO, OPERAND. 
4 $ AE 172410 LDD (RO) ,ACO 
4259 14 010102 MOV :SAVE THE DATA PATTERNS IN CASE OF 
4260 3 18 010¢ 001240 MOV “ERROR. 
4261 062 02 000010 ADD 
4262 022226 01023 001242 MOV 
4263 0 02 000010 ADD 
4264 022236 010237 001244 MOV tint 
4265 022242 016137 000042 001252 MOV 42<R1) STMP10 
4266 022250 012737 022600 001246 MOV VDNTT ,STMP6 
4268 022256 016100 000040 MOV 40(R1),RO sLOAD THE FPS. 
4269 022262 170100 LDFPS 
4270 022264 012737 022306 001236 MOV ais STMP2 
sort 022272 012737 022472 244 MOV #25$, FPVECT :SET Up THE FP TRAP VECTOR IN CASE 
4273 022500 010100 MOV R1.RO ‘COMPUTE THE ADDRESS OF FSRC. 
427 022302 062700 000010 ADD #16,R0 
4276 022306 171016 1$: MULD (RO), ACO s TEST INSTRUCTION. 
4278 022310 170204 2s: :GET FPS. 
4279 022312 170305 “GET FEC. 
4280 314 O12 00 000200 “SET FD MODE. 
4281 022320 170100 
4282 0 3302 012700 022600 :GET THE RESULT. 
42 6 17401 
4284 022 010437 001250 
Sag 022 010537 001254 
4 Hy, 0 340 012700 022600 sine os :CHECK THE RESULT. 

01010 R1.R2 
4289 702 000020 #26,R2 
4 5 O1 703 000004 , 
4 0 36 beans 3$: CAO) +,(R2d* BRANCH IF INCORRECT 
4 g 0 S3eo 077303 R3,3$ : ; 
4 022364 026104 000042 42(R1) .Ré sWAS FPS CORRECT 
4296 02 1002 10$ “BRANCH IF FPS 1g INCORRECT. 
4298 022372 000161 000056 4$: 56(R1) :RETURN, TEST COMPLETED. 






k 7 
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38 

4 “REPORT INCORRECT FPS. 

4301 022376 005761 000046 10S: TST 46(R1) :WAS THE RESULT OVER OR UNDER FLOW? 

4 ¢ 0 402 001002 BNE 12$ “BRANCH IF UNDERFLOW. 

4 sREPORT FPS BAD AFTER OVERFLOW. 

4305 022404 104123 11$: ERROR +123 

4 022406 000771 BR 4$ 

4308 022410 12$: :REPORT FPS BAD AFTER UNDERFLOW. 

4309 022410 104124 13$: ERROR +124 

4310 022412 000767 BR 4$ 

431¢ -RESULT INCORRECT. 

4313 022414 012700 022600 i5$: MOV #OVDNTT,RO sSEE IF FAILURE IS ANTICIPATED 

4314 0 420 010102 MOV R “FAILURE. 

4315 022422 06270¢ 000030 ADD #26 ,R2 

4316 0 426 012703 000004 MOV 

4317 022432 022022 16$ CMP (RO) +, (R2)+ 

4318 022434 001007 BNE 17$ :BRANCH IF NOT ANTICIPATED. 

4319 022436 077303 SOB R3,16$ 

4321 0 2440 010102 MOV R1,R2 sERROR WAS ANTICIPATED SO RETURN. 

4 442 202 000054 ADD #54,R2 *TO THE ERROR REPORT IN THE CALLING 

4323 022446 010237 001236 MOV R2,$TMP2 “ROUTINE. 

432% 22652 000112 JMP (R2) 

4326 022454 005761 000046 17$: TST 46(R1) sRESULT WAS NOT ANTICIPATED 

4327 : T BE REPORTED HERE. 

4328 “FIRST SEE IF ARGUMENTS SHOULD 
“HAVE RESULTED IN OVERFLOW OR UNDER 

4 *FLOW BY LOOKING AT THE FLAG. 

43 1 022460 001002 BNE 19$ “BRANCH IF UNDERFLOW EXPECTED. 

433 sREPORT RESULT INCORRECT, EXPECTING 

4334 02 462 104125 18$: ERROR +125 * OVERFLOW. 

4335 022464 000742 BR 4$ 

1339 466 19$: sREPORT RESULT INCORRECT, EXPECTING 

43 466 104126 20$: ERROR +126  UNDERF LOW. 

435 9 470 000740 BR 4$ 

4341 -IF AN FP TRAP OCCURS COME HERE. 

4 E 472 011602 55$: MOV (SP) .R :GET ADDRESS OF TRAP. 

4 474 022702 022310 #2$,R2 “WAS THE TRAP DURING THE MULF INSTRUCTION? 

4 500 00140¢ “BRANCH IF YES. 

4 § 022502 000137 037450 FPSPUR ;OTHERWISE GO REPORT A SPURIOUS 

4 506 02 $26 26S: (SP)+, (SP)+ “RESET THE STACK. 

4 510 01 001236 R2,$TMP2 “SAVE DATA FOR ERROR REPORT. 

434 514 0 : PS. 

4350 022516 170305 RS “GET FEC. 

35 5 ‘ oF 000200 #200,R0 “SET FD MODE. 

4 3¢ 3 61 022600 #OVDNTT,RO :GET THE RESULT. 

4354 0225 174010 ACO (ROS 

4355 022534 010537 001254 R5,$TMP11 
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£326 035370 540 
5 Bass 


022554 
022554 
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73 02257 
4374 57 
75 574 

oe8 

oes 022600 

4379 022610 
022610 


ec 


ABOVE FOR TEST TITLE 


000044 


000050 


000026 


000056 


000056 
000000 000000 


27$: 


28$: 


29$: 
30$: 


OVDNTT: 


JJJDONE : 
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SEQUENCE 
CMP R5.44(R1) :WAS THE FEC ANTICIPATED? 
BNE 27$ “BRANCH IF NOT ANTICIPATED. 
MOV R1,R2 sERROR WAS ANTICIPATED SO 
ADD #50,R2 “RETURN TO THE ERROR REPORT OF THE 
“CALLING ROUTINE. 
JMP (R2) 
TST 26(R1) : THE ERROR WAS NOT ANTICIPATED SO 
“IT MUST BE REPORTED HERE. FIRST SEE IF EXPECTED’ 
“OVERFLOW OR UNDER FLOW. 
BNE 29$ “BRANCH IF EXPECTING UNDERFLOW 
sREPORT TRAPPED ON OVERFLOW WITH FIV=0 
ERROR +127 
JMP 56(R1) | 
sREPORT TRAPPED ON UNDER FLOW WITH FIU=0 
ERROR +130 
JMP 56(R1) 
.WORD 0,0.0.0 
RSETUP 


:G0 aT a FPS AND STACK; AND 

:SEE IF THE eee HAS EXPRESSED 

; THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH hia (HAS 

:THE USER TYPED CONTROL G?) 


TEST TITLE: UNDER/OVERFLOW, USING MULF WITH TRAPS ENABLED 
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TEST # 14 = SEE COMMENT ABOVE FOR TEST TITLE 


4396 - SBTTL TEST # 14 = SEE COMMENT ABOVE FOR TEST TITLE 


RAE AEAAEAAEEAERERAEAERERAAAARAAAERAARERAEARARAEAREEEAHEAEKREAE 


:sTEST 14 SEE COMMENT ABOVE FOR TEST TITLE 


SeTHIS IS A TEST OF THE UNDERFLOW AND OVERFLOW 
:*CONDITIONS THAT yy OCCUR USING he Oe INSTRUCTION. 


*#A SUBROUTINE IS 
:* EXECUTE THE MULF INSTRUCTION AND CHECK 
*THE RESULTS. HERE THE PARTICULAR INTERRUPT 
; *EITHER OVERFLOW OR UNDERFLOW, IS ENABLED SO A TRAP SHOULD 


RARER AEAEAERERARERERAEAAEAEEAAAARAEAAKEARAEAEREAAAAEEEAAREKAHAREEE 






ane 022612 000004 jisees SCOPE 
£398 sUNDERFLOW, EXPONENT OF RESULT = -129 
4399 022614 KKK1: 

022614 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4400 616 004737 023040 JSR PC «Ov 
4401 0 62 0201 3 045676 1$: . WORD i 13% “A5676 SAC 
4402 6 0 $: “WORD *FSRC 
4403 022632 000123 045676 $ WORD “45676 RES 
4404 022636 177777 177777 i$: “WORD *ERROR RES. 
4405 022642 092000 5$: 2000 “FPS BEFORE EXECUTION. 
4406 022644 102004 102004 “FPS AFTER EXECUTION. 
4407 022646 12 6$: 12 :FEC 
4408 022650 17777 -1 LAG 
4409 022652 104145 7$: ERROR +145 ‘ST 31 (BUT FIU) NO TRAP. 
4410 022654 000401 BR 8$ 
4411 022656 104144 ERROR +144 
red 022660 8$: 
441% :UNDERFLOW, EXPONENT OF THE RESULT = -193 
4415 022660 KKK3: 

022660 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4416 022662 004737 023040 JSR PC 
4417 0 666 010127 127272 1$: .WORD 10127, pterere ZAC 
4418 022672 010200 2$: “WORD 102 sFSRC 
4419 022676 127 127272 3$: “WORD 1 057272 RES 
bk 2 177777 «177777 4$: “WORD -1,-1 ERROR RES. 
4421 022706 007017 5$: 7017 FPS BEFORE EXECUTION. 
hk - 022710 107000 197000 “FPS AFTER EXECUTION. 
bt 712 1 6S: 1 FEC 
4424 022714 17777 o] 
4425 022716 104146 7$: ERROR +146 :ST 137 (BUT FIU) NO TRAP. 
bk 000401 BR a3 
4427 O2e722 104144 ERROR +144 
44 8 022724 8$: 
bk OVERFLOW. EXPONENT OF THE RESULT = 128 
4431 022724 KK : 

724 104613 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

4432 004737 023040 JSR P é UNF T 
bh 060252 125252 1$: -WORD 60252,125252 :AC 
4434 es: WORD 0 =F SRC 
4435 742 52 123232 $: “ WORD 6.125252 RES 
4436 022746 177777 17777 4$: “WORD -1,-1 “ERROR RES. 





he 


TEST # 1 
i 
9 
4440 
446) 
it 


Pil 


retin tn . > 
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T ABOVE F 


023452 





T 


11 

IT 

S$: 1000 -FPS BEFORE EXECUTION. 
101006 “FPS AFTER EXECUTION. 

6S: 10 sFEC 

7$: ERROR +147 ST HAS 32 (BUT FIV) NO TRAP 
BR ag 
ERROR +143 

8$: 

OVERFLOW, EXPONENT OF RESULT = 130 

" _-LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

JSR OVUNF T 

1$: WORD ‘ bSa5- 67654 AC 

$: ~ WORD sFSRC 

$: "WORD  345,67654 RES 

4$: "WORD -1,-1 : ERROR RES. 

5$: 7015 FPS BEFORE EXECUTION. 
107002 “FPS AFTER EXECUTION. 

6$: 7” sFEC 

7$: ERROR +150 ST 933 (BUT FIV) NO TRAP 
ERROR +143 

8$: JMP KKKDONE 


IS 
;RESULT IS ea AGAINS 
> COMPARED WITH 


THIS SUBROUTINE, OVUNFT, IS USED TO SET ¥ THE OPERANDS. EXECUTE 
: THE MULF INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 


RANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
:T0 IT IS MADE THUS: 

















ACARG: .WORD X,X :AC OPERAND 
FSRCARG:.WORD X._X FSRC OPERAND 

RES: .WORD X.X “EXPECTED RESULT 
ERRES: .WORD X.X ; ERROR RESULT 

FPSB: .WORD xX “FPS BEFORE EXECUTION 
FPSA: .WORD xX “FPS AFTER EXECUTION 
FEC: WORD xX 3 XPECT 

FLAG: .WORD X : Mea OVER/UNDER FLOW FLAG 
ERR? ERROR +X “TRAP ERROR. 

ERR2: :DATA, RESULT ERROR 
CONT: “RETURN ADDRESS 


: THE OPERANDS ARE SET UP 
>THE MULF INSTRUCTION 





FPSA IF T 

:10 THE CALLING ROUTINE 
+ ge THIS FA 
* — WAY 


nN 7 
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TEST # 14 = SEE COMMENT ABOVE FOR TEST T 

















4493 :]F NO TRAP OCCURS CONTROL IS PASSED TO ERR}. 

449% “NOTE THA’ QVUNFNT USES THE F 

4495 *TO TELL WETHER OR NOT THESE 2ARTICULAR OPERANDS WILL RESULT IN 
4496 “UNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 

44 : 012601 OVUNFT: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
hb 03 O18 000200 MOV #200,R0 “SET FD MODE. 

4900 0 170100 LDFPS = RO 

4 101 MOV R1_RO ;LOAD ACO, OPERAND. 

4508 Satis kt LDD (RO), ACO 

4505 54 0101 2 MOV R1,R2 :SAVE THE DATA PATTERNS IN CASE OF 
4 192 001240 MOV R2.$TMP3 ERROR. 

4 ; 000004 ADD : 

4 ; 1242 MOV R2.$TMP4 

4 ; ADD ; 

4510 76 0102 1244 MOV Re STAPS 

4511 02310 o76t 7 os 001252 MOV 22(R1),$TMP10 

451¢ 023110 012737 023442 001246 MOV #OVETT.STMPG 

4514 0 116 016100 000020 MOV 20(R1),RO sLOAD THE FPS. 

4515 023122 1701 LDFPS oR 

4516 0 124 127 023146 001236 MOV #1$,STMP2 

4317 132 012737 023156 000244 MOV #50$, FPVECT SET UP THE FP TRAP VECTOR IN CASE 
4519 023140 010100 MOV R1,RO “COMPUTE THE ADDRESS OF FSRC. 

43 ; 142 062700 000004 ADD #4,R0 

45 4 023146 171010 1$: MULF (RO). ACO : TEST INSTRUCTION. SHOULD CAUSE TRAP. 
43 ; 150 170000 2$: CFCC 

45 § 023152 000137 023402 JMP 25$ :FAILURE, NO TRAP. 

45 5 0 156 01160 50$: MOV (SP) ,R2 :TRAP TO HERE AND SEE IF THE PC OF THE 
45 0 1 0227 023150 CMP R2,H2$ “TRAP WAS THAT OF THE MULF INSTRUCTION. 
45 164 1402 BEQ 1§ “BRANCH IF YES. 

43 023166 137 037450 JMP FPSPUR :OTHERWISE REPORT SPURIOUS FP ERROR. 

43 172 022 6 51$: CMP (SP)+, (SP)+ :RESET THE STACK 

4 174 1 STFPS RG “GET FPS. 

45 176 170305 STST “GET FEC. 

4535 012700 000200 MOV #200,R0 “SET FD MODE. 

4 17 100 LDFPS = R 

4 012700 023442 MOV #OVFTT.RO :GET THE RESULT. 

45 1 174010 STD ACO, (RO) 

4 14 0104 001 50 MOV R4,$TMP7 

440 20 010537 001254 MOV R5.$TMP11 

454¢ 4 012700 023442 MOV #OVFTT.RO :CHECK THE RESULT. 

$2 HB ENS sooo ham 

tees 708 So0002 mw O«S 

4946 4 3$: CMP (RO) +, (R2)+ 

454 44 001 BNE 15$ :BRANCH IF INCORRECT. 

4348 46 077303 S08 R3,3$ 


Oo © 
Nm 
ee rs , 
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TEST # 14 = SEE COMMENT ABOVE FOR TEST TITLE 


£229 D Oe ssee 


1383 
ts Sat 
635 


i358 023270 
4366 
is SBR 
ie ie 
i368 
iS? sg 


437 


18% 0 33) 4 
4575 023316 
4376 

4577 023320 
rth 0 0 
4579 0 2 
4580 

4581 

4 0 4 
4583 0 

4584 0 

4585 

45 

4 4 
4588 0 

4 


2396 02335 
6591 Bias 


ese 
a = 
— —s 
aoe 
=n 


2 


$3 
Yo 


SS Se 


000022 


000024 
000036 


000026 


000026 


023442 
000014 
000002 


001236 


000026 


CMP om 
BNE 10$ 


CMP — 
BNE 


4$: JMP 36(R1) 

*REPORT INCORRECT FEC. 

S$: TST 26(R1) 
BNE 7$ 

6$: ERROR +137 
BR 4$ 

7$: 

8$: ERROR +140 
BR 4$ 


“REPORT INCORRECT FPS. 

10$: TST 26(R1) 
BNE 

11$: ERROR +141 
BR 4$ 

128: 

13$: ERROR +142 
BR 4$ 


-RESULT INCORRECT. 
15$: MOV #OVFTT,RO 





MOV 1,R2 
ADD #14,R2 
MOV #2,R3 
16$: CMP (RO) +, (R2)+ 
BNE 
S08 R3,16$ 
MOV R1.R2 
ADD #34 ,R2 
MOV R2.$TMP2 
JMP (R2) 
17$: TST 26(R1) 
BNE 19$ 
18$: ERROR +143 
BR 4$ 


19$: 


SEQUENCE 


;WAS FPS CORRECT 
:BRANCH IF FPS 1s INCORRECT. 


1S FEC CORRECT? 
:IF_ INCORRECT BRANCH. 
“RETURN, TEST COMPLETED. 


sWAS THE RESULT OVERFLOW OR UNDERFLOW? 
;BRANCH IF UNDERFLOW. 


;REPORT BAD FEC ON EXPECTED OVERFLOW. 


;REPORT BAD FEC ON EXPECTED UNDERFLOW. 


;WAS THE RESULT eg OR UNDER FLOW? 
;BRANCH IF UNDERFLOW. 


;REPORT FPS BAD AFTER OVERFLOW. 


;REPORT FPS BAD AFTER UNDERFLOW. 


:SEE IF FAILURE IS ANTICIPATED 
FAILURE. 


;BRANCH IF NOT ANTICIPATED. 


ERROR WAS ANTICIPATED SO RETURN 
10 THE ERROR REPORT IN THE CALLING 


RESULT WAS i ANTICIPATED 
RROR T BE REPORTED HERE. 
iFIRST SEE IF ARGUMENTS SHOULD 
HAVE RESULTED IN ie ery OR UNDER 
BY LOOK! TT LAG. 
“BRANCH IF UNDERFLOW EXPECTED. 


REPORT RESULT INCORRECT, EXPECTING 
; OVERFLOW. 






REPORT RESULT INCORRECT, EXPECTING 
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OFOROROFOROROrG 


Seen 
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104144 
000731 


ee 
069709 
000112 
000000 


104412 


000200 
023442 


001250 
001254 


000030 


mm ee et 


MACRO M1113. 20-OCT-81 08:27 PAGE Bs-6 SEQUENCE 94 


20S: 


ERROR +144  UNDERF LOW. 
BR 4$ 
Hf NO FP TRAP OCCURS COME HERE. 
55$: STFPS R4 GET EPS. 
STST RS “GET FEC. 
MOV #200.R0 “SET FD MODE. 
LDFPS RO 
MOV #OVFTT,RO :GET THE RESULT. 
STD ACO, (RO) 
MOV R4,$TMP7 
MOV RS. *STMP11 
MOV R1.R2 ;ERROR WAS ANTICIPATED SO 


000000 000000 OVFTT: 


KKKDONE : 


ADD W306" R2 “RETURN TO THE ERROR REPORT OF THE 
“CALLING ROUTINE. 


JMP (R2) 

-WORD 0,0,0,0 

RSETUP +60 INITIALIZE THE FPS AND STACK; AND 
F THE USER HAS EXPRESSED 


IF THE 
: THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH ter, (HAS 
;THE USER TYPED CONTROL G?) 


sTEST TITLE: UNDER/OVERFLOW, USING MULD WITH TRAPS ENABLED 


8 
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TEST # 15 ~- SEE COMMENT ABOVE FOR TEST TITLE 


39 .SBTTL TEST # 15 = SEE COMMENT ABOVE FOR TEST TITLE | 


© * RAEAEAAAEAAEEAERAARAEAEEEAAEEAAAREAAEAARAARAAAAAEAEAKAEAAARAEEAAERERE ) 


; #TEST 15 SEE COMMENT ABOVE FOR TEST TITLE | 
**THIS IS A TEST OF THE OVER FLOW AND UNDER FLOW CONDITIONS USING THE 
:*MULD INSTRUCTION WITH TRAPS ENABLED. A SUBROUTINE IS USED TO SET UP 
:*THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND CHECK THE RESULTS. 
-% 


oo 
© PERERA AAARAEAEAEAAEEEEEEAAEAERAERERAERERAEAEAREEEAEERERERERAAREARAERE 


o> 








_— 023454 000004 TST15: SCOPE 
4641 :UNDERFLOW, EXPONENT OF RESULT = -129 
4642 LLL: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4643 JSR PC OYUNDT 
4644 1$: . WORD 06 é 125252 SAC 
rer % “WORD 46 g30 18 6 : FSRC 
rrr 000000 $3: “WORD 49300 .-1.-1 = =RES 
4648 4$: "WORD 177.1 “ERROR RES. 
4649 "WORD 125252,125252 
4650 5$: 22 :FPS BEFORE EXECUTION. 
4651 102204 “FPS AFTER EXECUTION. 
4652 6$: 12 FEC 
465 -1 : FLAG 
4634 7$: ERROR +157 “ST 331 (BUT FIU) NO TRAP. 
4656 ERROR +160 :ST 155 (BUT FD) 
is . 
4659 sUNDERFLOW, EXPONENT OF THE RESULT = -193 
4660 02354 LLL2: 
023542 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4661 023544 004737 024002 JSR PC QVUNDT 
023550 010327 12727 1$: ,WORD 1 127272 ZAC 
ist Sees Bites Secon oomco gx. OB MENG tax 
4665 0 33 127 127272 $3: 3 17872 RES 
4666 574 0 045454 “WORD * 45454 
466 1 177777 177777 4$: WORD -1,-1.-1,-1 sERROR RES. 
4668 10 007217 5$: 7217 “FPS BEFORE EXECUTION. 
4669 12 107 107200 “FPS AFTER EXECUTION. 
4670 023614 1g 6S: 12 FEC 
4671 1 17777 -1 FLAG 
467¢ 104161 7$: ERROR +161 “ST 137 (BUT FIU) NO TRAP. 
46 000401 
467% 4 106155 ERROR +156 
4675 023626 8$: 
i 
46 ; OVERFLOW, EXPONENT OF THE RESULT = 128 
4678 0 6 LLL3: 
104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4679 7 02400 JSR p QYUNDT 
4680 0 : ; 125 1$: .WORD 6 é 125282 AC 
5 ? 16243 ata $ “WORD : 106°0¢0.0° FERC 
rr $5 54 160197 1 190000 $3 WORD 1801 =-1,-1,-1 :RES 


er er ee” 


F 
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TEST # 15 = SEE COMMENT ABOVE FOR TEST TITLE 











4684 100177 4$: .WORD 100177,-1 sERROR RES. 
5 0 1 52 155959 "WORD 125252,125252 
74 001 S$: i2 :FPS BEFORE EXECUTION. 
76 101216 101216 cEPS AFTER EXECUTION. 
10 6$: - 
10416 7$: ERROR +162 ‘ST HAG 33 (BUT FIV) NO TRAP. 
4691 0237 01 BR BS 
469 710 104163 ERROR +163 :S$T 700 (BUT FD). 
re d+ 71 8$: 
35 _ OVERFLOW, EXPONENT OF THE RESULT = 130 

715 10441 PERR :SET UP THE LOOP ON ERROR ADDRESS. 
4697 023714 004737 024002 JSR OyUND 
4698 060345 067654 1$: WORD oie 37654 AC 
4699 724 65 045676 WORD oy 45676 
4 000000 28: “WORD 200 0,0.0 sFSRC 
4701 02374 654 $: “WORD 768 RES 
4 74h $5 5676 "WORD 56765,45676 
4 750 177777 177777 #177777 « 4$: WORD <-1,-1.-1,-1 sERROR RES. 
47 760 7215 5$: 7215 ‘FPS BEFORE EXECUTION. 
4705 023762 107202 “FPS AFTER EXECUTION. 
4 0 764 10 6$: FEC 
4 766 °F 
4 0 1041 7$: +164 *ST 133 (BUT FIV) NO TRAP 
4 772 000401 
4710 023774 104155 +155 
ait 3776 000137 024414 8$: LLLDONE 
2548 ;THIS SUBROUTINE. OVUNDT, IS USED TO SET UP THE OPERANDS, EXECUTE 
471% "THE MULD PNSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
4715 RANDS WHICH SHOULD RESULT. IN TOO THER OVERFLOW OR UNDERFLOW. A CALL 
4216 370 IT IS MADE THUS: 


4718 ; ACARG: .WORD X,X,X.X :AC OPERAND 
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ma 
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4750 024002 
4751 OS ebiG 
ore 024010 


4754 024012 
rts 024014 


4757 024016 
4758 024 
4759 0 rt “4 


4767 024064 


4766 024060 
4768 024066 
ri! 9 024074 









LT 


mw 


aos -95— OO 
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ae 
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nei 
01273 


012737 


062700 
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PNT PRT B 


000200 


001240 
000010 
001242 
10 
1244 
024404 
000040 
024110 
024120 


000010 
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SEQUENCE 


: RES: WORD KCXCXCX <ESPECTED RESULT 

; ERRES: .WORD X.X,X,X ERR RESULT 

; FPSB: .WORD X FPS BEFORE EXECUTION 

: FPSA: .WORD X “FPS AFTER EXECUTION 

: FEC: “WORD X iE CTED FEC 

: FLAG: .WORD X -1,OVER/UNDER FLOW FLAC 
; ERR1: ERROR +X ‘TRAP ERROR. 

; BR CONT 

: ERR2: ERROR +X :DATA, RESULT ERROR 

: CONT “RETURN ADDRESS 


THE OPERANDS ARE SET UP 


(USING ACO AS_THE Be ye hE T 
eye IF THE TRAP OCCURS THEN N THE 

S. IF THE RESULT IS CORRECT THEN THE FPS IS 
ORRECT OVUNDT RETURNS CONTROL 









:TO THE CALLI 










NG ROUT! I OVUNDT 
“REPORTS THIS FAILURE AND TO CONT. THE FEC IS TREATED 
[IN THE WAY. IF THE RESULT OF 
“MULF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
“ANTICIPATED FAILING DATA PATTERN ERRES. aif THE FAILURE IN 
“THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN 
“WILL TRANSFER CONTROL TO THE ERROR CALL AT E 
“RESULT WAS INCORRECT WAS NOT ANTICIPATED AND 
“REPORT T URE AFTER WHICH CONT 
:1F NO, TRAP oc CONTROL IS PASSED TO 


:TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
SUNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 


OVUNDT: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
200.R0 “SET FD MODE. 
LOFPS R 
MOV R1.RO :LOAD ACO, OPERAND. 
LDD (RO) ,ACO 
MOV R1,R2 :SAViL. = ‘PATA PATTERNS IN CASE OF 
MOV Re STMP3 ERROR. 
ADD #10,R2 
MOV R2 
ADD #10.R2 
MOV Rg ST s 
MOV 42(R1) ,STMP10 
MOV TT.STMP6 
MOV 40(R1),RO sLOAD THE FPS. 
LDFPS R 
MOV #1$,$TMP2 
MOV #50$,FPVECT :SET UP THE FP TRAP VECTOR IN CASE 
MOV R1.RO “COMPUTE THE ADDRESS OF FSRC. 
ADD #16,R0 
1: MULD (RO) ,ACO :TEST INSTRUCTION. SHOULD CAUSE TRAP. 
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> 
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Go 69 02 60 00 60 Oo 
oe? Wo NOUS WN O 
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483. 


000137 


020329 


BOOT +35 
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& 35 
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338 
at 


ss 8s 
SE 


3s Se 


a 8 
Rou 


024344 
50$: 

024112 

037450 
51$: 

000200 

024404 

001250 

001254 

024404 

000020 

000004 
3$: 

000042 

000044 

000056 4$: 
*REPORT 

000046 S$: 
6$: 
7$: 
8$: 
-REPORT 

000046 10S: 
11$: 
128: 
188, 





JMP 


| eneteai | FEC. 
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25$ :FAILURE, NO TRAP. 
(SP) .R2 : TRAP TO HERE AND SEE IF THE PC OF THE 
R2,42$ ;TRAP WAS THA HAT T OF THE MULF INSTRUCTION. 
FPSPUR OTHERWISE AEORT SPURIOUS FP ERROR. 
(SP)+, (SP)+ sRESET THE STACK 
RS :GET FPS. 
R5 sGET FEC. 
#200. RO “SET FD MODE. 
#OVDTT_R :GET THE RESULT. 
ACO RON” 
R4,$TMP7 
R5.$TMP11 
#OVDTT,RO :CHECK THE RESULT. 
R1.R2 
#20,R2 
4 
(RO) +, (R2)+ 
:BRANCH IF INCORRECT. 
R3,3$ 
42(R1) .RG sWAS FPS CORRECT? 
10$ “BRANCH IF FPS IS INCORRECT. 
44(R1) RS :1S FEC CORRECT? 
‘IF INCORRECT BRANCH. 
56(R1) “RETURN. TEST COMPLETED. 


sWAS THE RESULT OVERFLOW OR UNDERFLOW? 
;BRANCH IF UNDERFLOW. 


REPORT BAD FEC ON EXPECTED OVERFLOW. 


_ 
+151 
4$ 


+152 ;REPORT BAD FEC ON EXPECTED UNDERFLOW. 
4h 


INCORRECT FPS. 
TST 


ERROR 
BR 


19 SRL UE rad gy om ween ren 
REPORT FPS BAD AFTER OVERFLOW. 

a 

+156 ;REPORT FPS BAD AFTER UNDERFLOW. 

aG 


sRESULT INCORRECT. 


reece FPI11F FLTG PNT PRT B 
SEE COMMEN 


TEST # 15 - 


98 


74 


oo sess 2 


Oo 
RPL RRS 


es 


EREEE E 
Ww 

4 OooooO OOoOoOooOOoO 
£ 

Ww 

Nm 

oa 


024332 


iss SR 


Ge Go Go 00 00 Go Go Go 
‘oe 


4874 024402 

pe th 024404 

48 

4878 024414 
024414 


S8885 


e ¢ 


oo°o-0-0- = 


sk 
= 8 


104412 


024404 
000030 


000200 
024404 


001250 
001254 


000050 


000000 
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NT ABOVE FOR TEST TITLE 


15$: MOV #OVDTT.RO 
MOV R1.R2 
ADD #30,R2 
MOV # 

16$: CMP (RO) +, (R2)+ 
BNE 17$ 
508 R3,16$ 
MOV R1.R2 
ADD #54,R2 
MOV R2,$TMP2 
JMP 3) 

17$: TST 46(R1) 
BNE 19$ 

18$: ERROR +155 
BR 4$ 

19$: 

20$: ERROR +156 
BR 4$ 

-IF NO FP TRAP OCCURS COME HERE. 

55$: STFPS R4 
STST 
MOV #200,R0 
LDFPS R 
MOV #OVDTT RO 
STD ACO, (RO) 
MOV R6,$TMP7 
MOV RS.STMP11 
MOV R1.R2 
ADD #50,R2 
JMP (R2) 

000000 OVDTT: .WORD 0.0.0.0 

LLLDONE: 

RSETUP 


;BRANCH IF NOT ANTICIPATED. 


sERROR WAS ANTICIPATED SO RETURN 
:T0 3 ERROR REPORT IN THE. CALLING 





; HAV N OVERF 
:FLOW BY LOOKING AT THE FLAG. 
:BRANCH IF UNDERFLOW EXPECTED. 


REPORT RESULT INCORRECT, EXPECTING 
; OVERFLOW. 


REPORT RESULT INCORRECT, EXPECTING 
; UNDERF LOW. 


GET FPS. 
:GET FEC. 
7SET FD MODE. 


;GET THE RESULT. 


ERROR WAS ANTICIPATED SO 
;RETURN TO THE ERROR REPORT OF THE 
CALLING ROUTINE. 


TD 


ne ee ee 


8 
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TEST # 16 =~ MODF TEST 


4891 .SBTTL TEST # 16 ~ MODF TEST 
SRRAAERARERARAEEAAAAE ERE RERERERAREAREREREREAAEERERERERARRREEEEREE 
:#TEST 16 MODF TEST 
:sTHIS IS A TEST OF THE MODF INSTRUCTION, WHICH MAKES USE OF 
UBROUTINE TO SET UP THE OPERANDS, EXECUTE THE MODF INSTRUCTION 
: AND CHECK THE RESULTS. 
“* SRARAAAAERARARERERAEEAEAE EATER AEAAERERERAERAARARERREREEERAEEAAEES 
a 024416 099004 ST16: SCOPE 
tB98 :MODF WITH (FSRC=AC=0) 
489% 024420 6661: 
024420 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4895 024422 004737 025504 JSR PC .MODF SUB 
4426 000000 000000 1$: WORD 0.6 ZAC 
tB9e 4432 000000 000000 $: “WORD 0,0 *FSRC 
4898 024436 000000 000000 $: “WORD 0,0 “FRACTIONAL RES. 
4899 024442 000000 000000 4$: “WORD 0,0 S INTEGER RES. 
4900 0 4446 177777 «177777 5$: “WORD -1,-1 “ERROR FRACTIONAL RES. 
4901 0246452 177777 177777 6$: “WORD <1, =1 : INGETER 
4456 13 7$: 13 ‘FPS BEFORE EXECUTION. 
4903 024460 4 “FPS AFTER EXECUTION. 
4904 024462 104056 8$ ERROR +56 “STORE SINGLE ZERO BAD. 
4905 024464 000401 BR 9$ 
4906 024466 104057 ERROR +57 :AC V 1 <= ZERO FAILED. 
pest 024470 9$: 
1909 :MODF TEST, WITH (FSRC=0) 
4910 024470 6GG2: 
024470 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4911 024472 737 025504 JSR PC mOOF 
4912 024476 123456 076543 1$: -WORD 123456,76543 —-: AC 
4913 024502 000000 2$: “WORD 0,0 *FSRC 
4914 4506 3$: “WORD 0,0 “FRACTIONAL RES. 
4915 02451 4$: ; WORD yi * INTEGER RESUL 
4916 0 4316 le 7 076543 5$: “WORD  123456,76543 §:ERROR FRACTIONAL RES. 
4917 026522 177777 177777 6$: “WORD -1,=1 “ERROR INTEGER RES. 
4918 0245 7$: “FPS BEFORE EXECUTION. 
4919 0245 4 “FPS AFTER EXECUTION. 
49 4532 104056 8$: ERROR +56 “STORE ZERO FAILURE. 
4921 0245 000401 BR 9% 
49 é 4536 104057 ERROR +57 
rt ? 02454 9$: 
4925 :MODF TEST WITH (AC=0) 
49 4540 6GG3: 
454 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4927 024654 737 025504 JSR PC .MODF SUB 
49 4 1$: . WORD 0.6 :AC 
4 455 4 1234 $: WORD 76 43,21234 “FSRC 
49 45 $: “WORD “FRACTIONAL RES. 
4931 024 4$: “ WORD : INTEGER RES. 
49 4 S$: “WORD 0.0 ‘ERROR FRACTIONAL RES. 
49 4572 1 j $: WORD <-1,-1 ERROR TEGER RES. 
49 4576 900003 $: 3 FPS BEFORE EXECUTION. 
4935 024600 4 “FPS AFTER EXECUTION. 


CKFPBCO FPI1IF FLTG PNT 
TEST # 16 ~ MODF TEST 


oe 
4939 
4940 


sie 


8 4 
461 
94 
4941 
4942 024610 
461 
4943 02461 
4944 7238 
ie 
ie 
pee 
4951 02465 
1328 4652 
4953 024654 
4954 024656 
4955 024660 
4958 
4958 024660 
Stare: 
4959 S reer 
it ies 


196033 
104057 





PRT B 


sMODF TEST WITH 
GGG4: 


9$: 


K 
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BR 
ERROR 


rr gate 6 © 6 
x 
8 


DS 
x 
S 





——_- 
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+53 ;RES.BAD 


EXPONENT OF THE RESULT = 25 
;SET UP THE LOOP ON ERROR ADDRESS. 


ai :AC 
sFRACTIONAL RES. 


03 195252 
:FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 

+53 “ST 134 

9$ 

+60 

EXPONENT OF THE RESULT = 127 

> Fs :SET UP THE LOOP ON ERROR ADDRESS. 

77859. 125252 AC 

40300,0 sFSRC 

sFRACTIONAL RES. 

: INTEGER RES. 

= ERROR FRACTIONAL RES. 

*ERROR INTEGER tf 


EGE 
:FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 





?777,,=1 
77652, 125252 
40300,0 





+53 
9$ 
+60 


EXPONENT OF RESULT = 25 
SET UP THE LOOP ON ERROR ADDRESS. 


PC F SUB 
3 0 sFSRC 
46340,1 










; FRACTIONAL RES. 
S INTEGER RES. 


0 “ERROR FRACTIONAL RES. 
sERROR INTEGER 
sFPS BEFORE EXECUTION. 
HA pot SXEC oH 
+61 TANT ( 
BR st 5 TO 05 >t 150. 
YG 
+54 


me —— — SS - —— 
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TEST # 16 ~ MODF TEST 





4990 -MODF TEST WITH EXPONENT OF THE RESULT = 24 
4991 025000 6667: 
0 3000 104413 LPERR sSET UP THE LOOP ON ERROR ADDRESS. 
4992 3 737 025504 JSR PC .MODF SUB 
499 5006 1 1$: WORD 460 1 AC 
4994 1 $: “WORD 40340°9 *FSRC 
4995 02501 100 000000 $: "WORD 4100.0 SFRACTIONAL RES. 
499% 5 14 1 4$: “WORD 46140,1 ‘INTEGER RESULT. 
499 5$: “WORD 0,0 “ERROR FRACTIONAL RES. 
4998 025032 1 1 6$: "WORD -1,-1 “ERROR INTEGER RES. 
4999 025036 000000 7$: 0 “FPS BEFORE EXECUTION. 
5000 0 3040 “FPS AFTER EXECUTION. 
5001 025042 1 8$: ERROR +62 : CONSTANT USED (NOT 24) 
300¢ “OR ST 525 TO 150 INTO 050 
025044 000401 BR 9$ 
5004 0 104054 ERROR +54 
5005 02505 9$: 
a00F :MODF TEST WITH EXPONENT OF THE RESULT = 10 
5008 025050 6668: 
025050 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5009 025052 004737 025504 JSR P MODF SUB 
5010 025056 042577 177777 1$ “WORD 42577,-1 AC 
5011 025062 04200 $: “WORD  40200,0 *FSRC 
5018 0177 176000 $: "WORD 40177.176000 :FRACTIONAL RES. 
5013 025072 042577 14 4$: “WORD .42577.140000 =: INTEGER RES. 
5014 025076 177777 177777 5$: “WORD =1,-1 “ERROR FRACTIONAL RES. 
5015 025102 177777 177777 6S: -WORD -1,-1 “ERROR INTEGER RES. 
5016 025106 000000 7$: “FPS BEFORE EXECUTION. 
5017 025110 000000 0 “FPS AFTER EXECUTION. 
5018 025112 104053 8$: ERROR +53 
5019 025114 000401 BR 9$ 
5020 025116 104054 ERROR +54 
5021 025120 9$: 
50 “a 
5023 


Fy TEST WITH THE EXPONENT OF THE RESULT = 10 










5024 025120 
0 5120 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5025 025122 004737 025504 JSR Pp MODE SUB 
6 025126 042577 140001 1$: “WORD 42577,140001 _—-: AC 
5132 040200 000000 $: “WORD 40200, *FSRC 
8 0 3136 034 000000 $: “WORD 34600, ‘FRACTIONAL RES. 
5142 042 140000 4$: -WORD 42577,140000_ ; R 
50 3146 S$: -WORD 0.0 ‘ERROR FRACTIONAL RES. 
5031 02515 190009 1 6$: “WORD -1,-1 “ERROR INTEGER RES. 
50 5156 000000 73: 0 “FPS BEFORE EXECUTION. 
50 5160 0 “FPS AFTER EXECUTION. 
<0 5162 10406 S$ ERROR +63 “ST 532 TO 122 INTO NORMALIZE. 
5035 025164 000401 BR 9$ 
50 3166 104054 ERROR +54 
3 5170 9$: 
50 sMODF TEST WITH EXPONENT OF THE RESULT = 9 
5040 025170 66610: 
025170 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
$041 025172 004737 025504 JSR PC MODE SUB 
5042 025176 042377 100000 1$: “WORD 42577,1 AC 













EST 








5043 025202 
5044 025 
5045 3 
as a8 
504 
5050 025 
5051 025 
2026 025 
5053 025240 
5054 
5055 
5056 025240 
5240 
5057 025242 
ss Sass 
5059 5 
5060 
5061 
sis as 
5064 025276 
5065 025 
one6 025 
5067 025 
os S88 
Be 
5071 
5072 025310 
5310 
5073 025312 
5074 025316 
Sr Sass 
077 5 
278 8 
oa 8 
1 025350 
os Sse 
a 
5085 3360 


© 
ww 


Vi“ 
SNERES 


sorseese BSS 


3 


© 
o 
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BE 
NU 
Nw 


335 
13 


Bt 


eee 


ae 
33 


a 


2 


2 
z 
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¢3: . WORD 
$: . WORD 
4$: . WORD 
S$: . WORD 
: 
$: is 
8$: ERROR 
BR 
ERROR 
9$: 
sMODF TEST WITH 
GGG11: 
LPERR 
JSR 
1$: . WORD 
$: . WORD 
$: . WORD 
4$: . WORD 
5$: WORD 
6$: . WORD 
7$: YY 
8$ ERROR 
BR 
ERROR 
9$: 
sMODF TEST WITH 
GGG12: 
LPERR 
JSR 
1$: . WORD 
$: . WORD 
$: . WORD 
4$: . WORD 
5$: . WORD 
6$: . WORD 
7$: 
8$ ERROR 
BR 
ERROR 
9$: 





40200.0 :FSAC 

0 -FRACTIONAL RES. 

4¢ 77,100000 =; INTEGER RES. 

-1,-1 “ERROR FRACTIONAL RES 

“1-1 “ERROR INTEGER RES. 
sFPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 

+53 

9$ 

+54 


EXPONENT OF THE RESULT = 0 
;SET UP THE LOOP ON ERROR ADDRESS. 


PC F SUB 
ot ry FSRC 
rth a ‘FRACTIONAL RES. 
0,0 S INTEGER RES. 
0.0 “ERROR FRACTIONAL RES. 
40177,-1 “ERROR INTEGER RES. 
“FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
$64 *ST 041 TO 046 INTO 246. 
+64 


EXPONENT OF THE RESULT = -15 

:SET UP THE LOOP ON ERROR ADDRESS. 
7 

FRACTIONAL RES. 





il s. 
sERROR FRACTIONAL RES. 
E INTEGER . 
:FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
+64 
+) 
+64 


Fas TEST WITH EXPONENT OF RESULT = -64, IN ROUND MODE 


LPERR 
JSR 
1$: . WORD 
$: . WORD 
$: . WORD 
4$: . WORD 
5$: . WORD 
6$: . WORD 
73: 0 


;SET UP THE LOOP ON ERROR ADDRESS. 
P a 


201 ; 
bi. 
,0 








SEQUENCE 
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eee 


ee - 


a re — 
[ ac er a 
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TEST # 16 = MODF TEST 
5097 0 3% 0 sFPS AFTER oe idh ey 
5098 0 1 8s: ERROR H sROUND TRUNK, ST 126 INTO ROUND. 
5099 025424 op0% 1 BK 
99 : 104054 os ERROR +54 


:MODF TEST WITH EXPONENT OF RESULT = 11 
GGG14: 





om :SET UP THE LOOP ON ERROR ADDRESS. 

1§: WORD 

$: . WORD 

$: . WORD 

4$: . WORD 

5$: . WORD 

. rr 

: 7 

10 

8$: ERROR +66 
BR 9$ 
ERROR +67 

9$: JMP G 





:THIS SUBROUTINE, MODFSUB, IS 
“OPERANDS, EXECUTE THE MODF I 
-1T IS CALLED THUS: 


ee ee, me ee eed eed 


POND — tt tt es 4 
SOP OOD NAA ODS WE Wt 


PAPA AAAAAAAMMMMMVMIMIMIA  VWIMViVIW 























XX sAC OPE 
51 F XM 3: FSRC 
51 : XX -FRACT 
51 : XX : INTEGER RESULT 
51 : xx sERROR FRACTI 
51 : XX sERROR INT 
51 - x sFPS BEFORE 
5131 : x :FPS AFTER EXECUTION 
o136 : +X sFRACTION ERROR | 
513 ; CONT | 
5134 3 +X s INTEGER ERROR | 
3132 ; RETURN ADDRESS : 
5137 : THE OPERANDS AR T AC ARGUMENT). THE MODF 
51 s INSTRUCTION IS EXECUT VED. 
5139 : THE FRACTION PAR IF THIS IS CORRECT 
5140 : THEN THE INTEGER PART HESE ARE CORRECT 
a8: Bi HE FPS IS COMPAR S OCCURRED 
2143 :1T IS REPORTE OMPARED WITH 
5144 >THE ANTICIPATED BAD FRACTI ok 
5145 ; T RESULT T E HE ANTICIPATED 
gl6¢ sFAILURE MATCHES THE TRUE R TO THE 
514 :ERROR CALL AT ERR1. LIKEWI 
5148 :NOT CORRECT THEN IT IS COMPAR 
5149 sFAILURE. IF TH 
5150 :IF A MATCH 4s MADE HOWEVER, MODFSUB WI THE ERROR 
2125 sCALL AT ERR2. 





Be 

—t 

an 
' 


% 
> as 
~ 
~® 
© 
v 
~ 
es | 
“rr 
—¢ 


Ja 46) 


MMRNOONn TY 
—_ 
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5153 
1 
He 
1 
a 
i 
1 
i 
2166 025550 
is 
51 5552 
ae 
171 025 
7 Sas 
a12e 025574 
2198 025576 
51 5600 
AEA p 5604 
51 5610 
5180 025614 
se Saat 
iB 8 
8 fae 
51 5654 
51 
i ae 
a: : i 
2136 5674 
a1a7 5702 
0 gaare 
8 fet 
5198 5724 
0 8 
; 
; 
> 
5 
5 


SELERERLTS 
ses 8 

™m 
ay OY 
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Oro ¥ moO 





mm 
“2 
“~ 
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at Yo yy 
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o Ooooo°eo 
= RORNS 


3 Sxuex 


wow 
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=—ON —O—O 
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000014 
000016 
000032 


000042 


000020 
000022 
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001236 


000002 








SEQUENCE 105 
SET FD geet A POINTER TO THE ARGUMENTS 
;SET UP ACO 
;PUT A BACKROUND PATTERN INTO AC1. 
sSET UP THE FPS. 


;COMPUTE THE ADDRESS OF THE FSRC. 


sEXECUTE THE TEST INSTRUC! ION. 


sGET THE FPS. 
:SET FD MODE. 


:GET THE FRACTIONAL RESULT. 
;GET THE INTEGER RESULT. 


;SAVE THE DATA IN CASE OF ERROR. 


;CHECK THE FRACTIONAL RESULT. 
BRANCH IF INCORRECT. 


; CHECK THE INTEGER RESULT. 
;BRANCH IF INCORRECT. 


;CHECK THE FPS. 
BRANCH IF INCORRECT. 


:RETURN. 
sWAS THE ERROR ANTICIPATED? 
sBRANCH IF NOT ANTICIPATED. 


MODF SUB: (SP)+,R1 
MOV #200,R0 
LDFPS 
MOV R1.RO 
LDD (Rb) ACO 
MOV #MODP1, RO 
LOD (RO) ACT 
MOV 30(R1). RO 
LDFPS =R 
MOV #1$,$TMP2 
MOV R1,RO 
ADD #4-RO 
1$: mODF _—« (RO) ,ACO 
STFPS 4 
MOV #200.R0 
LOFPS RO 
MOV #MODFTO,RO 
STD ACO, (RO) 
MOV #MODFT1,RO 
STD AC1, (ROS 
MOV 
MOV 
ADD 
MOV 
ADD 
MOV 
ADD 
MOV R2,STMP6 
MOV #MODFTO,STMP7 
MOV #MODFT1.$TMP10 
MOV R46, STMP 
MOV 32(R1) ,STMP12 
MOV #mone TO RZ 
CMP 10(R1), (Re) 
BNE 10$ 
CMP 1ecRt) .2¢R2) 
BNE 1 
MOV #MODFT1,R2 
CMP 14(R1), (Ro) 
BNE 15$ 
CMP 1(R1) .2¢R2) 
BNE 15$ 
CMP 32(R1 »,R4 
BNE 20$ 
9$: JMP 42(R1) 
“FRACTIONAL ERROR. 
10$: CMP 20(R1), (R2) 
BNE 11$ 
CMP 22(R1),2(R2) 


——_—— 


CKFPBCO FPRIIF F 
TEST # 16 = MOD 
5210 754 
210 war 
5 \¢ 0257 
$21 
$214 025764 
5215 
16 5766 
1 5766 
18 §770 
: 1 
5221 02577 
3558 05600 
55, Set 
5225 02601 
5 $ 02601 
5 
: 026016 
5 026020 
§231 026020 
: 026022 
5 
§235 026024 
253% 036050 
026036 
026040 


CEC EE EEE 
MOMMY 
yo? a? DY at >t 
UE WAN —© 
i] 
S 
~w 


PRT B 


000034 


000024 
000026 


000040 


001254 
000032 


177777 
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000002 


001256 


177777 


BNE 
MOV 
ADD 
JMP 
11$: 
12$: ERROR 
BR 
- INTEGER ERROR. 
15$: CMP 
BNE 
CMP 
BNE 
MOV 
ADD 
JMP 
16$: 
17$: ERROR 
BR 
“FPS INCORRECT. 
20S: sad 
21$: ERROR 
BR 
MODFTO: . 
MODFT1: .WORD 
MODP1: .WORD 
GGGDONE : 
RSETUP 


R1,R2 
#34 ,R2 


(R2) 

+53 

sh 3 

24(R1), (R2) 
s6{R1) . 2(R2) 
16$ 


R1,R2 
#40 ,R2 


(R2) 


+54 
9$ 


4, STMP11 
32(R1) ,STMP12 
+55 
0.0,0,0 


0.0.0.0 
-1,-1,-1,°1 


7THE ERROR WAS ANTICIPATED SO 
;RETURN TO THE ERROR REPORT AT THE 
:CALLING ROUTINE. 


;THE ERROR WAS NOT ANTICIPATED SO 
:REPORT THE INCORRECT FRACTION HERE. 


sWAS THIS ERROR ANTICIPATED? 
sBRANCH IF NOT. 


+ THE ERROR WAS ANTICIAPTED SO RETURN 
A RL ERROR REPORT IN THE CALLING 


THE ERROR WAS NOT ANTICIPATED SO REPORT 
‘THE INTEGER FAILURE HERE. 


s;REPORT INCORRECT FPS. 


:GO INITIALIZE THE FPS AND STACK; AND 
EXPRESSED 


7SEE IF THE USER HAS 
;THE DESIRE TO CHANGE THE SOFTWARE 
:VI CONSOLE SWITCH REGISTER (HAS 


RTUAL 
:THE USER TYPED CONTROL G?). 


SEQUENCE 


CKFPBCO FPIIF FLTG PNT 
TEST # 17 = MODD TEST 





5258 

026074 000004 
5259 
5260 
5261 026076 

0 eth 104413 
5262 0261 004737 
sh Sith Bass 
5265 0 age 000000 
5266 0261 000000 
5267 026144 
5 re 6154 
5 44 164 . 000200 
5270 0 2198 000 
5271 0261 104070 
5 Le: 026172 01 
5273 026174 104074 
5274 026176 
5275 
S27 
52 

3 

5278 737 
5279 345 
5280 567 
rd 000000 
2a Reset RS 


MViv“iwi 
BLEAE 


wi 


MMI aAVIUWY 
BISIVSS 


3 


S333 





ss 
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177777 


000000 
177797 


een ae —— SE oe Gee 





—— 


SEQUENCE 


-SBTTL TEST # 17 = MODD TEST 


©  RREAAAAAAAAAAAEAAAEEAEAEAAEAEAAAAAAAAARAAAREEAEAAEREREREKERA ERAS 


**TEST 17 MODD TEST 
;* 
*eTHIS IS A TEST OF THE MODD INSTRUCTION. IT MAKES USE OF A SUBROUTINE 


“#T0 SET UP THE ARGUMENTS, EXECUTE THE INSTRUCTION AND CHECK THE 
: ®RESULTS. 
TTTitiiiiiiii iii 
TST17: SCOPE 
zMODD WITH (FSRC=AC=0) 
" LPEFR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,MODDSUB 
1$: WORD 0.0.0.0 sAC 
$: WORD 8-8-0 sFS 
$: “WORD 0, 0.0 “FRACTIONAL RES. 
4$: “WORD 0.0.0. “ INTEGER RES. 
5$: “WORD 0,0,0,0 “ERROR FRACTIONAL RES. 
6$: “WORD 0,0.-1,-1 “ERROR INTEGER RES. 
7$ 200 “FPS BEFORE EXECUTION. 
204 “FPS AFTER EXECUTION. 
oy ERROR +70 
BR 9$ 
™ ERROR +74 :$T 231 TO 142 INTO 143 
MOD TEST WITH FSRC=0 
" _ LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1s:  BorD O1daee 67012 AC 
; “WORD Hy 33° 695845 : 
$3: ~ WORD 0,0.0, sFSRC 
$ ~ WORD 0.0,0.0 : FRACTIONAL RES. 
5$: “WORD 012345 67012 “ERROR FRACTIONAL RES. 
“WORD 67,01 
6$: , WORD ~1,-1.-1,- sERROR INTEGER RES. 
7$: 213 “FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
8$: ERROR +75 ‘STORE DOUBLE ZERO 
98 ERROR +76 :AC V 1 <= ZERO ST 143 
MOD TEST WITH (AC=0) 
"  LPERR -SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC .MODDSUB 
$: Mont P5782 z7o79 Sac 
“WORD ref 51855395 : 
38: -WORD 0,0,0,0 :FRACTIONAL RES. 
L$: “ WORD 0,0,0 “INTEGER RES. 
5$: "WORD -1,-1.-1,-1 “ERROR FRACTIONAL RES. 


107 


ee 


9 
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s 6354 177777 177777 177777 6$: s WORD -1,-1,-1,-1 sERROR INTEGER RES. 
5 13 7$: 1 [FPS BEFORE EXECUTION. 
5 04 “FPS AFTER EXECUTION. 
5 104070 8S: ERROR +70 
5 637 gt BR $ 
5 <6 74 104071 ERROR +71 
: fs 026376 9$: 
: } — TEST WITH EXPONENT OF THE RESULT = 57 
on - LPERR eciatis :SET UP THE LOOP ON ERROR ADDRESS. 
5314 135839 1$: “WORD 5 $52,18 52 ZAC 
5315 125250 “WORD 1 230 125250 
2316 000000 000000 a8: "WORD 403 6.0.0 ESRC a 
2318 p99 ooo009 4$: HOR 4 it ee SUNTEGER RES” 
531 53: “WORD 0 0 “ERROR FRACTIONAL RES. 
5 1 3252 "WORD 125252,125252 
5321 177777 17777768: "WORD 56377,-1,-1,-1 ERROR INTEGER RES. 
5 é 7$: 4 “FPS BEFORE EXECUTION. 
5 04 “FPS AFTER EXECUTION. 
5324 8$: ERROR +77 “ST 526 TO 134 INTO 135 
5325 BR 9$ 
5 $ ERROR +77 
; i 9$: 
$399 :MODD TEST WITH EXPONENT OF THE RESULT = 79 
5330 026476 HHHS: 
026476 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5331 026500 737 027602 JSR PC .MODDSUB 
5332 026504 140240 000000 000000 1S: . WORD 146240.0,0,0 AC 
5333 026514 14 166314 2$: WORD 63 14,146314 :FSRC 
53 0 6520 133572 167737 "WORD 133572,167737 
5335 026524 000000 000000 3$: “WORD 0 6 :FRACTIONAL RES. 
53 0269 163777. 17 4$: "WORD 163777,-1 INTEGER RES. 
5337 026540 162531 125726 "WORD  162531,125726 
5338 026544 177777 177777 #177777 S$: “WORD -1,-1,-1,-1 sERROR FRACTIONAL RES. 
53 6554 063777 177777 6$: “WORD 63777,-1 “ERROR INTEGER RES. 
5340 026560 162531 125726 "WORD  162531,125726 
5341 026564 210 7$: 310 :FPS BEFORE EXECUTION. 
5348 6 000204 04 “FPS AFTER EXECUTION. 
534 570 104070 8$: ERROR +70 
5344 026572 000401 BR 9$ 
3345 6574 104100 ERROR +100 :ST 526 BAD SIGN 
2329 026576 9$: 
3 : MOD TEST WITH EXPONENT OF THE RESULT = 57 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5350 02760 JSR PC .MODDSUB 
5351 000000 1$: -WORD 5 ¢0 ,0,0,1 ZAC 
033¢ 000000 2$: “WORD  40340.0.0.0 *FSRC 
535 900000 $: “WORD 0,9 : “FRACTIONAL RES. 
5354 4$: WORD 40; 0.1 * INTEGER RES. 
5355 000000 5$: “WORD 40000.0.0.0 *ERROR FRACTIONAL RES. 
5356 000000 6$: “WORD  56340.0.0.1 “ERROR INTEGER RES. 
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CKFPBCO F 
TEST # 17 = TEST 
5 57 026664 313 7$: 13 :FPS BEFORE EXECUTION. 
5358 0 6666 04 “FPS AFTER EXECUTION. 
5359 0 104101 8$: ERROR +101 “CONSTANT BAD (WoT 56) 
“OR ST 525 TO 050 INTO 150 
5361 026672 000401 BR 9$ 
g : 6674 104101 ERROR +101 
; 6676 9$: 
5 :MODD TEST WITH EXPONENT OF THE RESULT = 56 
5366 026676 HHH? : 
667 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5367 737 02760 JSR PC MODDS 
5 704 000000 1$: ~ WORD 28 8. 1 3sAC 
5369 026714 040340 000000 $: "WORD 40340.0.0.0 *FSRC 
5 726 040100 $: “WORD 40100.0.0.0 “FRACTIONAL RES. 
5371 5614 4$: "WORD  561740.0,0.1 “INTEGER RES. 
5 2 7b 000000 5$: “WORD 0 0 0.0 “ERROR FRACTIONAL RES. 
5 6754 0 6140 000000 000000 6$: WORD 6140;0.0,1 “ERROR INTEGER RES. 
5374 026764 000213 7$: 1 “FPS BEFORE EXECUTION. 
5375 0 766 000 00 “FPS AFTER EXECUTION. 
5376 6770 104102 8S: ERROR +102 “BAD CONSTANT (NOT 56) OR 
53 “ST 525 TO 150 INTO 050 
5378 026772 000401 BR 9$ 
5379 026774 104102 ERROR +102 
; : 026776 9$: 
3382 :MODD TEST WITH EXPONENT OF THE RESULT = 36 
5 ager re HHHB8 : 
026776 104413 LPERR :SET UP THE LOOP ON CRROR ADDRESS. 
5384 027000 004737 027602 JSR PC SUB 
5385 027004 051177 177777 177777 1S: .WORD 51177,-1,-1,-1 :AC 
386 0 7014 040200 000000 2: "WORD 40200; 50- :FSRC 
5387 027024 04017 000000 "WORD 40177,-20,0,0 :FRACTIONAL RES. 
S3a8 027034 051177 177777 177760 4$ “WORD 51177,-1,-20,0 ; INTEGER RES. 
5389 027044 177777 177777 «#+(177777 ~«=5$ .WORD -1,-1,-1,-1 “ERROR FRACTIONAL RES. 
53 027054 177777 («177777 «177777 “WORD -1.-1.-1,-1 “ERROR INTEGER RES. 
5391 027064 000217 7$ 317 “FPS BEFORE EXECUTION. 
2398 200 “FPS AFTER EXECUTION. 
5393 027070 104070 aE ERROR +70 
5394 027672 BR 
5395 027074 104071 ERROR +71 
5396 027076 9$: 
2358 :MODD TEST WITH EXPONENT OF THE RESULT = 30 
5399 027076 HHH9 : 
104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5400 027100 004737 027602 JSR PC .MODDSUB 
5401 027104 040200 000000 000000 1$: . WORD 408 ,0,0,0 AC 
3402 0 7114 047 1777 2$: “WORD 4 -{ “FSRC 
5403 027120 17 1 “WORD  176000,1 
5404 027124 031 000000 3$: “WORD 31600,0,0.0 :FRACTIONAL RES. 
5405 027134 047 1 4$: “WORD 47577.-1 * INTEGER RES. 
54 7140 17 “WORD 17 0 
5407 027144 5$: “WORD 0,0,0,6 sERROR FRACTIONAL RES. 
5408 027154 04 1 190009 68: WORD 47577.-1,-1,-1 :ERROR INTEGER RES. 
5409 027164 000 $: “FPS BEFORE EXECUTION. 
5410 027166 000 00 “FPS AFTER EXECUTION. 
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9$: 
sMODD TEST WITH 
HHH10: 


sMODD TEST WITH 
HHH11: 


sMODD TEST WITH 
HHH12: 





LPERR 


LPERR 
JSR 






More 


LPERR 


er 


+103 ; (NORMALIZE) ST 532 TO 122 
; INTO NORM. 


9$ 
+104 ac Y 
on Sr’ 733 tO 156 INTO 157. 


EXPONENT OF THE RESULT = 31 
;SET UP THE LOOP ON ERROR ADDRESS. 


PC ,MODDSUB 
a 0 ” 
a 


ine 





sFSRC 
;FRACTIONAL RES. 
: INTEGER RES. 


ERROR FRACTIONAL RES. 
i sERROR INTEGER RES. 


$10 (BUT FD) STORE X10 


+71 


EXPONENT OF THE RESULT = 0 
:SET UP THE LOOP ON ERROR ADDRESS. 










AC 
*FSRC 
sFRACTIONAL RES. 
727 
0.0.6 ZINTEGER RES. 
-|,-1,-1,°1 [ERROR FRACTIONAL RES. 
0,6.-1.-1 Z ERROR INTEGER RES. 
“FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
$70 
+106 *ST 246 TO 126 INTO 127 (BUT FD) 
EXPONENT OF THE RESULT = ~115 
:SET UP THE LOOP ON ERROR ADDRESS. 
¢,MODDSUB 
: AC 
o ,0,0 sFSRC 
rs : :FRACTIONAL RES. 
0,6. -1,-1 “ERROR FRACTIONAL RES. 
0,6,-1,-1 ‘ERROR INTEGER RES. 
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; THE OPERANDS ARE SET 
; INSTRUCT ION IS EXECUTED. THEN T 
FRACTION PART OF THE RESULT I 


sFPS BEFORE EXECUTION. 
7FPS AFTER EXECUTION. 


3ST 446 TO 126 INTO 127 (BUT FD) 


EXPONENT OF THE RESULT = -63, IN ROUND MODE. 

:SET UP THE LOOP ON ERROR ADDRESS. 
3sAC 
sFSRC 
FRACTIONAL RES. 





+71 
HHHDONE ;GO TO THE NEXT TEST. 


MODDSUB, IS CALLED TO SETUP THE 
ie MODD INSTRUCTION AND CHECK THE RESULTS. 


> ee OE OE OO 


CONT 
+ 














3E IN RES. 
FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
7ST 127 INTO RND/TR 





: INTEGER ERROR 
RETURN ADDRESS 


AC ARGUMENT). THE MODD 
RETRIEVED. 

WITH FRES. IF THIS IS CORRECT 

S. BOTH HESE C 


T IS COMPARED WITH 
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5524 027612 
5525 027614 
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5531 02764 
55 764 
55 

5534 027646 
5535 

5536 027650 
55 7652 
2258 027656 
55 7660 
5540 027664 
5541 027666 
a206 027672 
554 

5544 027674 
5545 027676 
ste Sort 
5548 0 19 
5549 027716 
5550 027722 
5551 027726 
2296 0 

5553 027740 
5554 027746 
5555 027754 
3228 

5557 027760 
5558 64 
5559 0277 
5560 

ey 

36 gus 
5567 030012 
5568 ered 
5569 0300 
5570 030024 
5571 030026 
2276 
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5574 030030 
5575 030034 
9278 

5577 030036 


TEST # 17 = MODD TEST 
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001236 


MODDSUB: 


1$: 


2s: 


3$: 


9$: 





Vv (SP)+,R1 


#200,R0 

R1.RO 

(RO) ACO 

#MODP1_R 

(RO) ACI 
(R1) RO 

#1$,STMP2 

R1,R0 

#160,R0 

(RO) ,ACO 

R4 

#200,R0 

R 

Aco eros 

#MODDT1,RO 

ACT, (ROS 

R1,R2 

Re STMP3 

#10,R2 

Re STMP4 

#10,R2 


rion ; 















TO,R2 
R1,R 
#20,R3 


5 
(Re)+, (R3)* 
R5,2$ 
#MODDT1,R2 
R1 
#30,R3 
# 

(Re)*+ , (RS) + 
15 
R5,3$ 


oe ms 


72(R1) 


Re 
#MODDTO. STP? 
#MODDT1. STMP10 


(R1) ,STMP12 
eeTas t 


-GET A POINTER TO THE ARGUMENTS 
sSET FD MODE. 


;SET UP ACO 
;PUT A BACKROUND PATTERN INTO ACI. 
;SET UP THE FPS. 


;COMPUTE THE ADDRESS OF THE FSRC. 
sEXECUTE THE TEST INSTRUCTION. 


:GET THE FPS. 
;SET FD MODE. 


;GET THE FRACTIONAL RESULT. 
:GET THE INTEGER RESULT. 


SAVE THE DATA IN CASE OF ERROR. 


;CHECK THE FRACTIONAL RESULT. 


;BRANCH IF INCORRECT. 


CHECK THE INTEGER RESULT. 


s;BRANCH IF INCORRECT. 


CHECK THE FPS. 
sBRANCH IF INCORRECT. 


;RETURN. 
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;FRACTIONAL ERROR. 
030160 10s: MO tae ;WAS THE FRACTIONAL ERROR ANTICIPATED? 


# 
S0$: CMP (R2)+, (R3)+ 

BNE 11$ sBRANCH IF NOT ANTICIPATED. 
SOR at -aee 


rs ;THE ERROR WAS ANTICIPATED SO 
000064 ADD #64 ,R2 ;RETURN TO THE ERROR REPORT AT THE 
CALLING ROUTINE. 


JMP (R2) 
11$: : THE ERROR WAS NOT ANTICIPATED SO 
12$: ERROR $70 “REPORT THE INCORRECT FRACTION HERE. 
- INTEGER ERROR. 
030170 15S: mov #MODDT1 .R2 :WAS THE INTEGER ERROR ANTICIPATED? 
000050 ADD #50,R3 
000004 MOV #4 R5 
60$: CMP (R32) +, (R3)+ 
BNE 17$ :BRANCH IF NOT ANTICIPATED. 
S08 ne «age 
MOV R1_R :THE ERROR WAS ANTICIAPTED SO RETURN 
000070 ADD #70,R2 10 THE ERROR REPORT IN THE CALLING 
JMP (R2) : i 
168: : THE ERROR WAS NOT ANTICIPATED SO REPORT 
17$: ERROR 71 “THE INTEGER FAILURE HERE. 


RG 


REPORT INCORRECT FPS. 


001254 








-STMP11 
000062 001256 | lial 
21$: +72 
9$ 
000000 000000 0,0,0.0 
000000 000000 MODDT1: .WORD 0,0,0,0 
DONE : 
RSETUP 





:TEST TITLE: UNDER/OVERFLOW, USING MODF WITH TRAPS DISABLED 
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T # 20 - SEE COMMENT ABOVE FOR TEST TITLE 










5636 -SBTTL TEST # 20 ~ SEE COMMENT ABOVE FOR TEST TITLE 
FRRAAAAAAAAAAAAAAAAAAAEAATAAAEAERERAAEAAAAAAAAAEARERERARRAREREREES 
:STEST 20 SEE COMMENT ABOVE FOR TEST TITLE 
:eTHIS IS A TEST OF THE MODF OVERFLOW AND UNDERFLOW CONDITIONS. IT MAKES 
“*USE OF A SUBROU TO SETUP THE OPERANDS, EXECUTE THE MODF INSTRUCTION 
j AND CHECK THE RESULTS. TRAPS ARE DISABLED DURING THIS TEST. 
ne 
“ie 030202 000004 $120: SCOPE 
5638 ,UNDERF LOW TEST. WITH EXPONENT OF THE RESULT = -129, FIU = 1, FID = 1 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5640 JSR PC mODF OV 
5641 1$: WORD 201 45676 AC 
648 $: “WORD 9 0 *F SRC 
564 $: “WORD 123,45676 =FRACTIONAL RES. 
5644 L$: “WORD 0,0 ‘INTEGER RES. 
5645 5$: “WORD =1,-1 SERROR FRACTIONAL RES. 
5646 6$: “WORD -1,-17 : ERROR INTEGER RES. 
564 7$: 42 FPS BEFORE EXECUTION. 
5648 142 :EPS AFTER EXECUTION. 
5649 12 FEC 
5650 8$: ERROR +170 “FEC INCORRECT. UNDERFLOW. 
5651 BR 9$ 
263¢ ERROR +171 sAC V 1 (2,3) <= ZERO, ST 126. 
oz boy: 
5655 sUNDERFLOW EXP OF RESULT = -193, FIU = 0, FID = 1 
5656 030256 EMS | 
30 56 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5657 004737 030532 JSR 
5658 030 010200 000000 1$: WORD 
5659 030270 010000 000000 2$: WORD 
5661 4 46 is; “WORD 
3062 0 1 : goes S$: WORD 
0 310 177777 177777 6$: WORD , 
5664 0 14 005013 7$: 5013 “FPS BEFORE EXECUT 
5665 030316 005004 5004 “FPS AFTER EXECUTION. 
5666 0 12 12 FEC 
566 24 8$: NOP 
2668 ‘ rt eeL Seon +171 
267 . “OVERFLOW TEST WITH EXPONENT OF THE RESULT = 128, FIV = 1, FID = 1 
104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5676 004737 030532 JSR sori83 
5675 52 12525 1$: . WORD 252. ~—sS AC 
3676 2 ¢: WORD ZF SRC 
56 $: WORD “FRACTIONAL RES. 
5678 0 5 1 L$: WORD ss : INTEGER R RES. 
56 56 5$: “WORD “ERROR FRACTIONAL RES. 
5680 0 000000 6$: “WORD “ERROR INTEGER RES. 
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EST # 20 ~ SEE 
+ 
4 74 
5 76 
030400 
5688 030402 
5689 
5690 
5691 See: 
569 
5693 030410 
5694 030414 
5695 8 
56 4 
5697 0 
5698 
5699 40 
5700 030442 
5701 0 
gris 030446 
5703 030450 
5704 030452 
5705 030454 
5706 
5707 
5708 
5709 030454 
030454 
5710 030456 
5711 030462 
5712 030466 
5713 030472 
5714 030476 
5715 030502 
5716 e 506 
5717 030512 
5718 030514 
5719 030516 
5720 OeNe oS 
5721 030522 
2758 03025) 
5723 030526 
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COMMENT ABOVE FOR TEST TITL 


pee 


See 


setts 


BE 
Ss 


: 


J 

8 
UNoOon 
WMI MO 


Ss 


031126 


7$: 41 
188 
E 


9$: 


sOVERFLOW TEST WITH EXPONENT OF 
fapAPAd, : 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC MODE OV 
1$: .WORD 6034 “6 654 AC 
$: -WORD 60200, § 
$: “WORD 0, “FRACTIONAL RES. 
4$: “WORD 0. ‘INTEGER RES. 
S$: “WORD : ! “ERROR FRACTIONAL RES. 
6$: "WORD 345,67654 “ERROR INTEGER RES. 
7$: 6011 “FPS BEFORE EXECUTION. 
6006 “FPS AFTER EXECUTION. 
10 sFEC 
8$: a 
“ ERROR +174 :$T 520 TO 162 INTO STORE ZERO TWICE. 
“OVERFLOW TEST WITH EXPONENT OF THE RESULT = 128, RESULT NEGATIVE 
“AND FIV = 1, FID = 1 
- LPERR i iia :SET UP THE LOOP ON ERROR ADDRESS. 
1$: WORD 166282 125252 AC 
2$: “WORD 6 *FSRC 
3$: “WORD : 0 “FRACTIONAL RES. 
4$: "WORD 100052.125252 INTEGER RES. 
5$: “WORD Q 0 “ERROR FRACTIONAL RES. 
6S: "WORD 52,125252 *ERROR INTEGER RES. 
7$: 41000 “FPS BEFORE EXECUTION. 
141006 - “FPS AFTER EXECUTION. 
10 “FEC 
8$: ERROR +172 
BR 9$ 
ERROR +175 :ST 517, BAD SIGN. 
9$: JMP MMMDONE :GO TO THE NEXT TEST. 
:THIS SUBROUTINE, MODFOV, IS CALLED TO SETUP THE 
ON AND CHECK THE RESULTS. 


- OPERANDS, EXECUTE THE MODF INSTRUCT 


717 IS CALLED T 


ACARG: 
—_ 


FRES: 
INTRES: 





sFPS BEFORE EXECUTION. 
444: AFTER EXECUTION. 


[BAD FEC ON OVERFLOW. 
:$T 520 TO STORE ZERO TWICE 
INTO 162 


T 
NT 


THE RESULT = 150, FIV = 0, FID = 1 
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Se Se Se Ge Oe & 
$2 3 
at 






“THE OPERANDS ARE SET 
“INSTRUCTION IS EXECUT 
“THE FRACTION PART OF 


THEN THE INTEGER PART 
THEN 


:T UL 
sFAILURE MATCHES T 
: ATE 





s1F A 






;CALL AT ERR 
MODFOV: MOV 
LDFPS 
MOV 
1$: 






TMP7 
TAP10 








I D HERE 
MODFOV WILL RETURN CONTROL TO THE 


SEQUENCE 116 





F THIS IS CORRECT 
HESE ARE CORRECT 
ERRORS OCCURRED 


OMPARED WITH 













ES 





ra) 
an) 
= 


—— eas - 


:GET A POINTER TO THE ARGUMENTS 
;SET FD MODE. 


;SET UP ACO 
:PUT A BACKROUND PATTERN INTO AC1. 
sSET UP THE FPS. 


;COMPUTE THE ADDRESS OF THE FSRC. 


:GET THE FPS. 

:GET FEC. 

:SET FD MODE. 

:GET THE FRACTIONAL RESULT. 
sGET THE INTEGER RESULT. 


sEXECUTE THE TEST INSTRUCTION. 
SAVE THE DATA IN CASE OF ERROR. 


A TE —- - —_— -- _ ——_—_—- —- — 2 
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TEST # 20 = SEE COMMENT ABOVE FOR TEST TITLE 
10437 001 MOV R4.STMP11 
16137 001256 MOV 52(R1) STMP12 
10537 MOV RS. STMP13 
16137 001262 MOV 34(R1) ,STMP14 
1270 031106 MOV #MODF DOR *CHECK THE FRACTIONAL RESULT. 
112 00001 CMP 10(R1), (Re) | 
102 BNE :BRANCH IF INCORRECT. | 
162 000012 000002 cmp 12(R1),2(R2) : 
10 BNE 10$ 
012702 031116 MOV #mOF D1 RZ sCHECK THE INTEGER RESULT. | 
02611 14 CMP 14(R1), (Re) | 
101 BNE 15$ :BRANCH IF INCORRECT. | 
02616 000016 000002 CMP 16(R1) ,2¢R2) 
101 BNE 15$ 
026104 000032 CMP 32(R1).R4 sCHECK THE FPS. | 
1024 BNE 20$ “BRANCH IF INCORRECT. 
026105 000034 CMP 34(R1).R5 sCHECK THE FEC. 
1030 BNE 25$ “BRANCH IF INCORRECT. 
000161 000044 9$: JMP 44(R1) = RETURN. 
“FRACTIONAL ERROR. 
10S: :THE ERROR WAS NOT ANTICIPATED SO | 
104165 12$: ERROR +165 “REPORT THE INCORRECT FRACTION HERE. 
000774 BR 9$ | 
- INTEGER ERROR. | 
026112 000024 15s: CMP 24(R1), (R2) sWAS THIS ERROR ANTICIPATED? | 
1010 “BRANCH IF NOT. | 
02616¢ 000026 000002 26(R1), ,2¢R2) | 
01010 R1,R2 >THE ERROR WAS ANTICIAPTED SO RETURN 
O59703 000042 #62,R2 :TO THE ERROR REPORT IN THE CALLING 
000112 (R2) ; 
16$: THE ERROR WAS NOT ANTICIPATED SO REPORT 
1041 17$: ERROR +166 THE INTEGER FAILURE HERE. 
0007 BR 9$ 
-FPS INCORRECT. 
010437 001254 50$: MOV 11 sREPORT INCORRECT FPS. 
016137 000032 001256 MOV STMP1, 
104167 21$: ERROR 
000750 BR 9$ 
“REPORT FEC ERROR 
5 55$: MOV R5.STMP13 
000034 001262 _-3G(R1) ,STMP14 
MOV R1,R2 
ADD #36,R2 


JMP 138 
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Si # 20 - SEE COMMENT ABOVE FOR TEST MTITLe 


50 031106 090000 000000 000000 MODFDO: .WORD 0,0.0,0 
031116 000000 000000 000000 MODFD1: .WORD 0,0.0,0 





MMMDONE : 
104412 RSETUP £90 INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
3 THE DESIRE TO CHANGE THE WARE 
sVIRTUAL CONSOLE SWITCH _ (HAS 
* THE USER TYPED CONTROL G?). 


TEST TITLE: UNDER/OVERFLOW, USING MODD WITH TRAPS DISABLED 
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TEST # 21 = SEE COMMENT ABOVE FOR TEST TITLE 


5867 - SBTTL TEST # 21 ~ SEE COMMENT ABOVE FOR TEST TITLE 


sRAAAAAEAEAAAAEEAREEEAEAEEREREREAERARAARAARERAAERERERRERREREEREE 


: TEST 21 SEE COMMENT ABOVE FOR TEST TITLE 

:*THIS IS A TEST OF THE MODD INSTRUCTION'S OVER FLOW AND UNDER FLOW 
ITIONS. A SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE THE 

: MODD INSTUCTION AND CHECK THE RESULTS. 


+ seeneedsensessdeanseedbbanatabeneneeteonneseseesenecereseetonns 







a 031130 000004 gese SCOPE 

38 a ;UNDERF LOW TEST WITH EXPONENT OF THE RESULT = -129, FIU = 1, FID = 1 
0 1138 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

$7) Seles GBatee PBI ag, etm IND ac 

587 4 1144 050528 125252 | “ WORD an 2 F 

5874 031150 020100 28: “WORD ;FSRC 

5875 0 1160 000177 177777 ogoaes $: “WORD aor -{.-1 *FRACTIONAL RES. 

5876 031170 000000 000000 000000 4$: “WORD 049, ‘ S INTEGER RES. 

5877 031 020 52 125252 5$: “WORD Sas “ERROR FRACTIONAL RES. 

5878 031 125252 125252 “WORD 12 325 252 

5879 031210 000000 177777 6$: : 0,0,-1,-1 ERROR INTEGER RES. 

5880 31 0 042200 7$: 42200 FPS BEFORE EXECUTION. 

5881 031222 142204 142204 cFPS AFTER EXECUTION. 
031224 000012 12 FEC 

3883 BSS 0 1286 104201 8$: ERROR +201 “FEC INCORRECT ON UNDERFLOW. 

5885 031232 104202 ERROR +202 2ST 155 (BUT FD) 

3886 031234 9$: 

5888 :UNDERFLOW TEST WITH EXPONENT OF THE RESULT = -193, FIU = 0, FID = 1 

5889 031234 NNN2 : 
031 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

5890 031236 004737 031546 JSR 

5891 0 lehe spew? 000000 1$ . WORD 3AC 

298 031 $5 010200 000000 900000 $: “WORD -FSRC 

5894 31 62 000000 $: . WORD *FRACTIONAL RES. 

5895 0 1 000000 000000 000000 4$: . WORD ‘INTEGER RES. 

5896 1 000000 000000 000000 5S: “WORD “ERROR FRACTIONAL RES. 

5897 03131 090000 000000 6$: WORD “ERROR isNTEGER RES. 

5898 031 18 12 : 000000 “WORD 

5899 031 00521 7$: 3213 :FPS BEFORE EXECUTION. 

5900 031324 005204 5204 “FPS AFTER EXECUTION. 

5901 0 1326 000012 12 

3505 031339 000601 a Se 

5904 0 1 104203 ERROR +203 :ST 047 (BUT FD). 

rh 31 9$: 

$507 _ a ae TEST WITH EXPONENT OF THE RESULT = 128, FIV = 1. FID = 1 
6 1336 104413 sSET UP THE LOOP ON ERROR ADDRESS. 

5909 031340 004737 031546 

5910 031 332 125252 1$: ana 12595 : ZAC 

5911 031350 125252 125252 - WORD 3851738382 - 
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TEST # 21 = SEE COMMENT ABOVE FOR TEST TITL 


5912 031354 1 a8: “WORD 60100,0.0.0 -F SRC 
$913 031 $: “WORD 9.0 0 “FRACTIONAL RES. 
5914 031374 1 4$: “WORD 177.-1,-1,-1 INTEGER RES. 
5915 031404 000000 S$: “WORD °0.6 “ERROR FRACTIONAL RES. 
5916 1414 1 6$: “WORD 177.- “ERROR INTEGER RES. 
5917 031420 1 52 12008 ; WORD 125252, 125252 
5918 031424 041 7$: 41200 sFPS BEFORE EXECUTION. 
5919 031426 141 141206 SFPS AFTER EXECUTION. 
5920 0314 1 10 
5921 031432 104 8$ ERROR +204 “FEC BAD ON OVERFLOW. 
59 ; 031434 000401 BR 
59 : 1436 104205 ERROR +205 :ST 520 TO 162 INTO 163 (BUT FD). 
29 4 144 9$ 
59 6 sOVERFLOW TEST WITH EXPONENT OF THE RESULT = 130, FIV = 0, FID = 1 
5927 031440 NNNG : 
031440 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
59 & 0 144 004737 031546 a JSR PC MODDOV - 
5930 0 1459 12 333 350000 “WORD 125088. 0 
5931 031456 060 900000 000000 2$: “WORD 6.0.0 FSRC 
59 0 14666 000000 000000 3$: “WORD 0,0,0.0 “FRACTIONAL RES. 
59 1476 000000 000000 000000 4$: “WORD 0,0,0,0 S INTEGER RES. 
5934 031506 000000 000000 5$ “WORD 0.0.0.0 “ERROR FRACTIONAL RES. 
5935 031516 90 000000 6$ “WORD 400 0 “ERROR INTEGER RES. 
5936 031522 125252 000000 “WORD 125252,0 
5937 031526 11 7$ 6211 :FPS BEFORE EXECUTION. 
5938 0315 6206 ZFPS AFTER EXECUTION. 
5939 031532 10 10 FEC 
5940 031534 000240 8$: NOP 
5941 031536 000401 BR 9$ 
5942 031540 104206 ERROR +206 :ST 520 TO 162 INTO STORE ZERO TWICE. 
59453 031542 000137 032154 9$: JMP NNNDONE :GO TO NEXT TEST 


:THIS SUBROUTINE, MODDOV, IS CALLED TO SETUP THE 
“OPERANDS, EXECUTE THE MODD INSTRUCTION AND CHECK THE RESULTS. 








:1T IS CALLED T 

j ACARG: .WORD X,X.X.X AC 

; FSRCARG:.WORD X,X.X.X zs FSRC 

J FRES: WORD XX,X_X sFRACTIONAL RESULT 

; INTRES: .WORD X,X,X_X : INTEGER RESULT 

; ERFRES: .WORD X.X.X.X sERROR FRACTION RESULT 

; oe eWORD X,X,X.X ; ERROR INTEGER 

; FPSB: WORD % sFPS BE 

; FPSA: -WORD xX “FPS AFTER EXECUTION 

; ERR1: ERROR +X = FRACTION ERROR 

; BR CONT 

; ERR2: ERROR +X : INTEGER ERROR 

: CONT: * RETURN ADDRESS 

:THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE MODD 
INSTRUCTION IS EXECUTED. THEN a RESULTS ARE RETRIEVED. 

: THE FRACTION PART OF THE RESULT IS rh cate WITH FRES. IF THIS IS CORRECT 
3 THEN a. Ne PART IS ne Fe H INTR F BOTH OF THESE ARE CORRECT 
: THEN THE FPS IS COMPARED W RE ION IF NO ERRORS OCCURRED 
* THEN MODDOV WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 
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5968 :1T IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 
596 “THE ANTICIPA ERFRES. IF THIS DOESN'T MATCH 
5970 “THE TRUE RESUL ROR IS REPORTED HERE. IF THE ANTICIPATED 
5971 “FAILURE MATCHES T ESULT THEN MODDOV PASSES CON T 
597 :E AT I IF THE INTEGER PART PSULT Is 
59 :NOT CORRECT THEN IT IS WITH THE ANTICIPATED INTEGER 
5974 : FAILURE. al THIS DOEN'T MATCH THEN THE ERROR IS R HERE. 
5975 “IF A MA HIS MAD HOWEVER, MODDOV WILL RETURN CONTROL TO THE ERROR 
5976 [CALL AT TERR 
5978 0 1546 012601 MODDOV: MOV (SP)+,R1 GET A POINTER TO THE ARGUMENTS 
59 031550 012700 000200 V 200,R0 “SET FD MODE. 

031554 170100 LDFPS 
5981 031556 010100 MOV :SET UP ACO 
5982 031 172410 LDD Lhe ACO 
5983 031 012700 026062 MOV #MOD :PUT A BACKROUND PATTERN INTO AC1. 
5984 031 172510 LDD (RO) att 
5985 0 1570 016100 000060 MOV 60(R1) RO :SET UP THE FPS. 
5 1574 170100 LDFPS R 
5987 031576 012737 031612 001236 MOV #1$.STMP2 
5988 031604 010100 MOV R1,RO :COMPUTE THE ADDRESS OF THE FSRC. 
5989 031606 062700 000010 ADD #10,R0 
5991 031612 171410 1$: MODD =‘ (RO), ACO sEXECUTE THE TEST INSTRUCTION. 
2395 031614 170305 STST RS :GET THE FPS. 
5994 031616 170204 STFPS RG “GET THE FPS. 
5995 031620 012700 000200 MOV #200,RO0 “SET FD MODE. 
5996 031624 170100 LDFPS RO 
5997 031626 012700 032134 MOV #MODDDO, RO :GET THE FRACTIONAL RESULT. 
5998 031632 174010 STD ACO, (ROS 
5999 031634 012700 032144 MOV #MODDD1 , RO :GET THE INTEGER RESULT. 
6000 031640 174110 STD Ach tROS 
6002 031642 010102 :SAVE THE DATA IN CASE OF ERROR. 
6003 031644 010237 001240 
6004 031650 06270¢ 000010 
6005 031654 01 93 001242 
6006 0 1660 02 000010 
600 31664 01 @3 001244 
6008 031670 062 ; 000010 

031674 01 23 1246 
6010 037 012737 3134 001250 
6011 0 1706 012737 032144 001252 
6012 1714 010437 001254 R4,STMPI1 
6013 031720 016137 000062 001256 62(R1),$TMP12 
6014 051726 010537 001260 R5,$T 
6015 031 016137 000064 001262 64(R1),$STMP14 
rth 031740 012708 032134 #MODDDO, ,R2 :CHECK THE FRACTIONAL RESULT. 
6018 031744 01010 
6019 0 1746 703 000020 B20. R3 

1752 O1 700 000004 Ns 
1 031756 02 2 2$: (RO) +, (R3)+ 
¢ 9 17 00) 10$ sBRANCH IF INCORRECT. 

6023 1762 077003 RO,2$ 


F 1 
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KF 
EST # 21 = SEE COMMENT ABOVE FOR TEST TITL 
5 0317 12702 032144 MOV #MODDD1,R2 :CHECK THE INTEGER RESULT. 
£026 03170 018108 MOV R1_R . ee 
03177 703 000030 ADD #36,R3 
6028 0 1776 012700 000004 MOV #4 .R0 
re 4 004 pecee 3$: a ine), (R3)¢  sBRANCH IF INCORRECT 
6031 0 b9 700 S08 RO,3$ : ; 
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pet 33 

rat 6 010 

60 014 
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Se sus 
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6041 032024 
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oie Sn 
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6048 

6049 032034 

6050 0 

o3] 2 

35 § 

6054 032054 

6055 032056 

yr 032060 

6057 032062 

6058 

6059 032066 

6060 

es) ener 

sis Str 

6064 

6065 

once 032074 

6067 032100 

58 $8 

60 

6071 

one 032112 

60735 052116 

6074 032124 

6075 0321 

pre 0321 

60 

6078 032134 

6079 

6080 032144 

6081 

6082 032154 
032154 

6083 

6125 


000062 


000064 


000072 
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001256 


001262 


NT ABOVE FOR TEST TITLE 





CMP (R1).R4 
BNE $s 
CMP G4 (R1) RS 
BNE 5$ 
9$: JMP 74(R1) 
oo ERROR. 
12$: ERROR +176 
BR 9$ 
- INTEGER ERROR. 
15$: MOV #MODDD1,R2 
MOV 
ADD #50,R3 
MOV #4 R5 
60$: CMP (R2)+, (R3)+ 
BNE 17$ 
$08 R5.60$ 
MOV R1_R 
ADD #72 ,R2 
IMP (R2) 
16$: 
17$: ERROR +267 
BR 
-FPS INCORRECT. 
50$: MOV R4.$TMP11 
(R1) ,STMP12 
21$: ERROR +200 
BR 
“REPORT FEC ERROR 
55$: MOV R5.STMP13 
64(R1) ,STMP14 
MOV R1,R2 
ADD #66,R2 
JMP (R25 
MODDDO: .WORD 0,0,0,0 
MODDD1: .WORD 0.0.0.0 
“RSETUP 


SEQUENCE 125 


;CHECK THE FPS. 
;BRANCH IF INCORRECT. 


;CHECK THE FEC. 


;RETURN. 


;THE ERROR WAS NOT ANTICIPATED SO 
SREPORT THE INCORRECT FRACTION HERE. 


;WAS THE INTEGER ERROR ANTICIPATED? 


sBRANCH IF NOT ANTICIPATED. 


;THE ERROR WAS ANTICIAPTED SO RETURN 
:TO THE ERROR REPORT IN THE CALLING 


THE ERROR WAS NCT ANTICIPATED SO REPORT 
ZTHE INTEGER FAILURE HERE. 


REPORT INCORRECT FPS. 


3GO_ INITIALIZE THE FPS AND STACK; AND 
SEE I USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
SVIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 
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TEST # 22 = INTERRUPT CORRECT FLOWS TEST 


6126 - SBTTL TEST # 22 = INTERRUPT CORRECT FLOWS TEST 


FRARARAAAEAARAAAAAAAEAAEEAEEARERAAEERAARAAAAERAEEAEAEAREREARREEREEE 


: TEST 22 INTERRUPT CORRECT FLOWS TEST 


S eTHIS IS A TEST OF THE ‘CORRECT’ FLOWS. THIS PART OF THE MICRO CODE 
;* AS ITS PURPOSE IN REQUESTS MADE DURING 


URING THAT INTERRUPT S 
:*CERTAIN LENGTHY FPP ae eg pth ae GET . THI 
IN SUCH THAT IF AN INTERRUPT REQUEST OCCURS 
TATE OF NSTRUCTI 



























T RUCTI VER 
N FE ITS EXECUTION NEVER STARTED. THUS THE MICRO CODE 

WILL RESTORE ALL REGISTERS, BACK UP THE PC AND LEAVE THE 

corn AND A one THROUGH ACS IFIED. 





ADDD INSTRUCTION. THEN 
RIED USING MODE 1. 
MODULE 
MANUFACTURING ENVIRONMENT, 
0 MAAS AN 
IS SET IN ITS STATUS 
S ENCOUNTERED. 
(DEPENDENT UPON WHETHER 
IMES OUT WHEN REFERENCED). 











=*THIS TEST CAN AL 
sSWITCH REGISTER. 


:eTHE T TATUS REGISTER IS AT 
: *LOCATION TH 1S LOCAT ION ARE 
‘MADE INDIREC CORINT, SO THA 

;*1F THE MOD STAT TUS SEGISTER TO 
“#RESPOND TO A DIFFERENT MUST 


Ss 
et: TO CONTAIN THAT STATUS REGISTE 
;*TH HIS PROGRAM ASSUMES THAT THE og T EQUIPMENT IS 110. 
INDIRECT, THROUGH 





ON CORTRP UF T Ss 
ADE FRAP TO A | ae VECTOR LOCATION CORTRP MUST CONTAIN THE 
: #ADDRESS OF THIS VECTOR). 


RAEAAARAATAARAARARARARAEEAAATAAALARAAAARAAAATAAAAAAAARAAARARAREAAAEE 






on 032156 000004 18122: SCOPE 

f 

6128 032160 132737 000200 001337 BITB #200,SENVM :SEE IF APT IS SELECTING TEST. 
6129 0 166 001406 BEQ 1 “BRANCH TO AUTOSIZE IF NOT. 

6130 032170 032777 000200 146742 BIT #200, aSwR “SEE IF THE USER HAS SELECTED THIS 
S18 oszi7e. oot econ Tela Petco esr eer 
6133 032200 obs 8? 033336 JMP CORDONE :ELSE DO NOT RUN TEST. 

6135 032 012737 032230 000004 CORI: MOV #COR2 ERR ERRVECT :SEE IF THE TEST EQUIPMENT'S STATUS 
4136 032212 012777 000000 001112 MOV “REGISTER TIMES OUT. 

6137 0 012737 037502 000004 MOV rcPapUR. ERRV 

6138 032226 06 BR :DIDN'T TIME OUT SO START TEST. 


1 
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TEST # 22 - INTERRUPT CORRECT FLOWS TEST 











6140 0 39 022 6 COR2: CMP (SP) +, (SP)+ :If THE REFERENCE TIMES OUT DO 
6141 : ; O12 0375 2 000004 MOV #CPSPUR,ERRVECT 
614e 4 137 0333 JMP CORDONE ;NOT RUN TEST. 
6144 :TEST ADDD MODE 0 | 
6145 2 44 : | 
6146 44 005227 177777 INC #~1 | 
614 0 50 001002 BNE COR33 | 
6148 52 104401 TYPE 
6149 54 040455 WORD  CORMES 
6150 56 COR33 | 
6151 56 104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. | 
61 3 004737 033036 JSR PC, CORSUB 
6153 0 $4 040200 100 000200 1S: .WORD 4 é 100,200,300 :ACO 
6154 032274 123456 es: WORD 123456 RO 
6155 76 000200 $: 200 :FP 
6156 172 L$: ADDD  ACO,ACO “TEST INSTRUCTION. 
615 2 000240 NOP 
6158 0 005037 033320 CLR CORFLG ;:RESET INTERRUPT FLAG 
6159 10 104252 ERROR +252 *NO INTERRUPT! TEST EQUIPMENT FAILED. 
6160 032312 000401 BR 11$ 
6161 032314 104253 S$: ERROR +253 s INCORRECT STATE AT INTERRUPT. 
6162 032316 11$: 
616 :TEST ADD MODE 1 
6164 032316 CORS: 

032316 104413 LPERR :SET UP THE LOOP ON ERROR ADORESS. 
6165 0 004737 033036 JSR PC CORSUB 
166 032324 040201 000555 077007 1S: “WORD 40201,555,77007,111111 ;:ACO 
6167 0 032324 28: “WORD 1$ : 
6168 0 336 000217 $: 517 “FPS 
6169 0 172010 L$: ADDD (RO). ACO “TEST INSTRUCTION 
6170 032342 000240 NOP 
6171 032344 005037 033320 CLR CORFLG ;RESET INTERRUPT FLAG 
6172 032350 104252 ERROR +252 *REPORT FAILURE. NO INTERRUPT. 
6173 0 33¢ 01 BR 11$ 
6174 032354 104254 ERROR +254 
6175 032356 118: 
6176 
61 :TEST ADDD MODE 2 
6178 032356 COR5: 

032356 104413 ) LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
6179 0 004737 033036 JSR PC CORSUB 
6180 0 040202 111333 052525 1$: “WORD 60202,111333,52525, 70707 ACO 
6181 032374 032 es: ; WORD 1$ RO 
6182 76 5 $: 20 “FPS 
618 400 172020 4$: ADDD  (RO)+,ACO “TEST INSTRUCTION 
6184 032402 40 NOP 
6185 032404 37 033320 CLR CORELG :RESET THE INTERRUPT FLAG 
61 410 52 ERROR +252 :REPORT FAILURE. NO INTERRUPT. 
618 412 000401 BR 1$.— 
6188 032414 104255 ERROR +255 :CORRECT FLOWS FAILED. 
6189 032416 118: 
6190 
6191 sTEST ADDD MODE 3 
— Oele 10441 —_ LPERR SET UP THE LOOP ON ERROR ADDRESS 
6193 035400 192533 033036 JSR PC, CORSUB 

! 


re i r,t ee | 
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TEST # 22 ~ INTERRUPT CORRECT FLOWS TEST 


TEST ADDD MODE 5 
SET UP THE LOOP ON ERROR ADDRESS. 


6194 0 426 203 071735 072746 1$: .WORD 40203,71735,72746,1 ACO 
6195 0324 $: "WORD 10S RO 
O18 4 98 $: 206 sFPS 
619 440 1 i$: ADDD  a(RO)+,ACO “TEST INSTRUCTION 
6198 44 40 NOP 
61 444 3 033320 CLR CORFLG sRESET THE INTERRUPT FLAG 
‘3? 1 ERROR +032 ‘REPORT FAILURE, NO INTERRUPT. 
; 4 1 236 S$: ERROR +236 :CORRECT FLOWS FAILED. 
0 428 032424 10$: .WORD 1$ :USED FOR THE ADDRESSING OF THE OPERAND 
5 “IN THIS MODE. 
032462 11$: 
6207 :TEST ADDD MODE 4 
0 rr: COR?7: 
104413 ios LPERR — :SET UP THE LOOP CN ERROR ADDRESS. 
e310 136 040204 123456 070123 1S: WORD 10504 193656,70123 45671 :ACO 
11 032500 032500 28: "WORD  1$+10 RO 
le 502 000 12 $: 212 “FPS 
1 504 172040 4$: ADDD  -(RO),ACO “TEST INSTRUCTION 
14 032506 000240 NOP 
15 032510 005037 033320 CLR CORFLG ;RESET THE INTERRUPT FLAG 
6216 032514 104252 ERROR +252 sREPORT FAILURE. NO INTERRUPT. 
17 032516 000401 BR 11$ 
18 0 320 104257 ERROR +257 sCORRECT FLOWS FAILED 
19 032522 11$: 
20 
6221 
22 032522 
032522 104413 LPERR | 
6225 032524 004737 033036 J PC CORSUB 
% 032530 040205 076543 021076 1$ “WORD 60205, 76543,21076,54321 :ACO 
62 5 032540 66 “WORD  10$+42 :R 
4 542 213 3$: 213 ‘FPS 
622 544 172050 4$: ADDD  a-(RO),ACO “TEST INSTRUCTION 
8 0 346 240 NOP 
6229 0 55 3057 033320 CLR CORELG *RESET THE INTERRUPT FLAG 
62 554 1042 : ERROR +252 :REPORT ERROR. NO INTERRUPT. 
6231 032556 00040 BR 11$ 
32 0 360 104260 S$: ERROR +260 :CORRECT FLOWS FAILED. 
33 0 gi BR 118 
34 0 564 5 10$: .WORD 1$ 
5 566 118: 
62 :TEST ADDD MODE 6 
032566 CORS: 
104413 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
39 0325 737 033036 JSR PC CORSUB 
40 032574 9206 034353 063730 1$: -WORD 40206, 34353,63730 31323 sACO 
41 03257 es: “WORD 1$-1 iR 
ae 0 14 $: 214 “FPS 
4 610 1 990001 4$: ADDD  1(RO),ACO “TEST INSTRUCTION 
64 14 005037 033320 CLR CORFLG 
45 104252 ERROR +252 sREPORT FAILURE NO TRAP. 
2 01 BR 11$ 
624 4 eye 5$: ERROR +261 


” 
T 


KFPBCO FP11F FLTG PNT PRT B 
EST # 22 - INTERRUPT CORRECT FLOWS TEST 


wiv 
—O 


PERRO LLL 
BEE oppEenenceness 
Ooooooooooocooo 


™~ 
_ 
oOooooo°oo 


~~ SSS 
wn) —— 
NN 


RUVLGVLL 
EPSON: 


BRR 
Soa 


COOoCoOooooooeooo 


& 
= 


eas 


S3ae33 
WR 
COQoQoooocooe 


NNAAO 
=—ONN™N 
oofnn 


S 


Fh 032626 
49 


ie 
= 
~ 








033036 
033445 


033320 


033036 
165411 


033320 


033036 
045654 


062426 


056677 


046252 


054542 


118: 


1 
MACRO M1113 20-OCT-81 08:27 PAGE S345 


;TEST ADDD MODE 7 


COR10: 


18: 


S$: 
11$: 


sTEST MULD MODE 
COR12: 


LPERR 
R 


DIVD MODE 


ERROR 





;SET UP THE LOOP ON ERROR ADDRESS. 


PC CORSUB 
40210, 70107.62426,55555 ;ACO 
10$-1 k0 


FPS 
: TEST INSTRUCTION 


@1(RO) ,ACO 
CORFLG 
+42¢ REPORT FAILURE NO TRAP 
sage sCORRECT FLOWS FAILED. 
1$ 
1 
;SET UP THE LOOP ON ERROR ADDRESS. 
PC,CORS 


40511 $3445 ,56677,001122 :ACO 
1$ ;RO 


FPS 
sTEST INSTRUCTION 


(RO) ,ACO 

CORFLG 

+a2° zREPORT FAILURE, NO TRAP. 
+263 : CORRECT FLOWS FAILED. 


:SET UP THE LOOP ON ERROR ADDRESS. 


PC, CORS 

cOsi2.16 411 46252,63650 :ACcO 

219 “FPS 

(RO) ,ACO =TEST INSTRUCTION 
CORFLG 

: 32 :REPORT FAILURE, NO TRAP. 
+264 :CORRECT FLOWS FAILED. 


1 
— :SET UP THE LOOP ON ERROR ADDRESS. 
OO313,05654,56542,1 71623 ACO 


yh :FPS 
(RO) ,ACO :TEST INSTRUCTION. 





127 
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TEST # 22 - INTERRUPT CORRECT FLOWS TEST 


6301 7 033320 CLR CORFLG 

6 é 194283 ERROR +292 :REPORT FAILURE NO TRAP. 

5 104265 5$: ERROR 1285 :CORRECT FLOWS FAILED. 

6 5 7? 033336 11$: § JMP CORDONE :FINISHED TEST! 

6 : THIS SUBROUTINE, CORSUB, IS CALLED TO SET UP THE OPERANDS 


“AND CHECK THE RESULTS IN THIS TEST. IT IS CALLED THUS: 













CORRECT FLOWS FAILURE. 
;OPTIONAL FOR CERTAIN MODES. 
ZOPTIONAL FOR CERTAIN MODES. 


6 ; 

6310 : JSR PC, CORSUB 

6311 : 1$: ~WORD X,X,X,X ;ACO OPERAND 
i : $s: ~WORD X :RO 

631 : $: ~WORD xX FPS 

6314 : 4$: INST ‘TEST INSTRUCTION TO BE 
15 ; 3EX XECUT 

O36 : ADR AN ADDRESS OFFSET FOR 
17 : ‘CERTAIN MODES OR NOP. 

osi8 : caren 4 2 “NO TRAP E > 


SEER 



















> CORSUB UP A POIN 0 THE ARGUMENTS, IN R1. ACO, RO AND 
$ -THE FPS WILL BE SET HEN THE TEST MODULE 
: JON AT 4$ EXECUTED. IF 

8 ;NO WHEN THE TRAP OCCURS 
6329 ACK SHOULD NOT 
63 “HAVE vBEEN N MODIFIED. IF EVERY L RETURN TO 
6331 :5$ PLUS TWO. IF AN ERROR IS DETECT 
6332 ERROR REPORT A AT 5$. 
633 “NOTE THA CORFLG. IS SET TO -1 WHEN AN INTERRUPT 1S PENDING. 
6334 = CORFLG ts PERD SOTHERWISE. 
6336 033036 005037 033320 CORSUB: CLR CORFLG :SET FLAG 10 INDICATE NO INTERRUPT 
6338 033042 01 (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
63 010102 sSET ACO. 
6340 012700 000200 : 
6341 52. 170100 
6342 Het (R2) ACO 
634 016 000012 (R1) RO :SET UP THE FPS. 
oie a 000010 10(R1) RO :SET UP RO. 
6346 R1.R2 

033072 000014 #14,R2 

‘ 033076 001236 R2,$TMP2 ;SAVE ADDRESS OF INSTRUCTION IN CASE 

50 3 102 005037 177776 PSiW :CLEAR THE PRIORITY TO ALLOW INTERRUPTS. 

51 033106 033134 000220 #CORTV,@CORTRP 3SET NTERRUPT VECTOR. 
4 32 33114 at ef 177777 033320 #-1, CORFLG 
6354 033122 012777 177777 000202 MOV #-1, @CORINT 
6356 033130 000161 000014 JMP 14(R1) 
635 


ee eee 


— — — - 
— ae —---— —— —- 
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oo 
ww 
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639 
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So 
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N 
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fo aT = ] 
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033320 


000032 
000030 
001236 


033320 
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ST # 22 - INTERRUPT CORRECT FLOWS TEST 


000162 


007240 


000000 


CORTV 


1§: 


CORTVO: 
CORTV1: 


CORFLG: . 


CORTMP 


CORINT: 


CORTRP: 





to TO HERE WHEN THE INTERRUPT OCCURS. 
OM CORFL 





LS : sFIRST see IF AN INTERRUPT WAS PENDING. 
¥ F NOT GO REPOR 


T 
-@CORINT 


ACO thos 
#CORTMP,. STMP3 
RO. STMP 


R2,$TMP12 
(SP) .R2 


CORTVO 
(SP)+,(SP)+ 
RO. 10(R1) 
CORTVO 
R1,R2 
ACORTMP RZ 


#4 R 
(R3)+, (R3)+ 
corTv6 


R5,1$ 
32(R1) 
30(R1) 
(SP) ,STMP2 






CORFLG 
(SP)+,(SP)+ 
+266 


CORDONE 


0 
0.0.0.0 


177774 


110 


AN 
MAKE SURE THE TEST EQUIPMENT 
:1S NOT INTERRUPT ENABLED. 


sGET THE FPS. 
:GET ACO 


ae IF THE TRAP OCCURRED 
T THE CORRECT ADDRESS. 


4 THE STACK. 
: SEE Yar IS CORRECT. 


‘SEE IF ACO WAS CORRECT 


;BRANCH IF INCORRECT. 
:1F EVERYTHING IS CORRECT THEN RETURN. 
CORRECT FLOWS FAILED SC GO REPORT ERROR. 
ZAN_ INTERRUPT OCCURRED WHEN THE | 


FLAG 
“CORFLG. DID NOT INDICATE THAT ONE WAS 
“PENDING SO REPORT SPURIOUS TRAP. 





HE ADDRESS. 177774. OF THE 
PRENT®S STATUS REG GISTER. 
“THE CONTENTS OF CORINT CAN BE MODIFIED 
TIF THIS STATUS REGISTER'S ADDRESS IS 
Tats i THE ADDRESS OF THE TEST EQUIPMENTS 
VECTOR. LIKE THE STATUS REGISTER'S ADDRESS 

‘DESCRIBED IMMEDIATELY ABOVE 

THIS VECTOR CAN BE CHANGED. BUT THE 
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TEST # 22 = INTERRUPT CORRECT FLOWS TES’ 


6415 ;CONTENTS OF CORTRP MUST INDICATE THE 

phy ; CHANGE . 

6418 033330 CORDONE : 

0 104412 RSETUP :GO_ INITIALIZE THE FPS AND STACK; AND 

;SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 

94 

6421 

64 ¢ 033340 TST23: 

6434 

6425 

6426 -SBTTL END OF PASS ROUTINE 


RRR RRRe A ARATE AEAAAEAATAAT AAT AAAAAAAE TATA ATTA ARK AeA AEE 
> *INCREMENT THE PASS NUMBER (S$PASS) 

s* INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

:*IF SW12=1 INHIBIT TRACE TRAP 

:*IF THERES A MONITOR GO TO IT 












-e1F THERE ISN'T JUMP TO LOOP 
033340 SEOP: 
033340 . 
033342 0 SO? 001102 STSTNM ::ZERO THE TEST NUMBER 
0 3346 005037 00130 STIMES ::ZERO THE NUMBER OF ITERATIONS 
033352 005237 001324 SPASS INCREMENT THE PASS NUMBER 
033356 1 1000$ “BRANCH IF STI 
0 5037 001324 SPASS “CLEAR THE PASS COUNTER 
0 5237 034106 SPASS2 ‘INCREMENT OVERFLOW PASS COUNTER 
0 5327 1000$: (PC)+ :;LOOP? 
. 3 ih, 1 SEOPCT: at hase sid 
O33 76 13? 034034 SDOAGN * YES 
033402 012737 999$: (PC)+,a(PC)+  ;:;RESTORE COUNTER 
8 ° 1 SENDCT: 1 
0 8 5 fg 001112 RTTL :SEE IF ANY ERRORS THIS PASS 
033414 1007 BNE “BRANCH IF SO TO PRINT THE EOP 
0 1g 5737 034104 TST PEND  SSEE IF EOP MSGS ARE DISABLED 
1120 BNE 14 “BRANCH IF SO 
: 4 737 001777 001324 BIT #1777.$PASS “PRINT EOP EVERY 2000TH PASS 
0 1114 nie BNE $GET42 “BRANCH IF NOT MULTIPLE 
0 104401 033442 TYPE 65$ :: TYPE ASCIZ STRING 
oS 40 000407 BR 64 -*GET OVER THE ASCIZ 
omens 13658: -ASCIZ <12><15>/END PASS # / 
0 005737 034106 TST SPASS2 :SEE IF OVERFLOW KAS NON-ZERO VALUE 
0 1440 BEQ 4900$ :BRANCH IF ZERO 
0 13746 034106 MOV SPASS2.-(SP)  ::SAVE SPASS2 FOR TYPEOUT 
=: TYPE OVERFLOW PASS NUMBER IN OCTAL — ;DPMOO2 
033472 104403 TYPOS *:60 TYPE--OCTAL ASCII 
033474 BYTE 6 :: TYPE T 
033475 “BYTE >: SUPPRESS LEADING ZEROS 
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END OF PASS ROUT! 









001324 TST SPASS :SEE IF PASS COUNT IS ZERO ; DPMOOZ 
BNE 000$ ‘BRANCH IF NOT “ DPMOO 
033512 TYPE 67$ >: TYPE ASCIZ STRING 
BR 6s =:GET OVER THe ASC1Z 
i678: ASCIZ | 
— 4 : :G0 TEST SERTTL 
502 01 07 001244 3000S: MOV #70000.$TMPS § CHECK 5TH OCTAL DIGIT FIRST 
530 033737 001244 001324 4000$: BIT STMPS ,$PASS ; CHECK TO SEE IF OCTAL DIGIT IS ZERO 
0335 1013 BNE 4900$ CH OUT IF ZERO 
033540 104401 033546 TYPE 698 : TYPE ASCIZ STRING 
033544 01 BR $ :GET OVER THE ASCIZ 
::69$: .ASCIZ i0: 
033550 68$: 
033550 37 001244 ASR STMPS sSHIFT THE THREE BITS RIGHT 3 PLACES 
0 554 7 001244 ASR STMP5 ; 
560 7 001244 ASR STMP5 > 
0 330s 61 naiiie BR 4000$ “BRANCH BACK TO CHECK $PASS 
033566 013746 001324 MOV SPASS,~(SP) SAVE SPASS FOR TYPEOUT 
>: TYPE PASS NUMBER IN OCTAL 
033572 104403 TYPOS *:G0 TYPE=-OCTAL ASCII 
033574 006 .BYTE 6 33TYPE 6 DIGITS 
033575 000 “BYTE 0 :: SUPPRESS LEADING ZEROS 
033576 005737 001112 4910$: TST SERTTL “SEE IF ANY ERRORS THIS PASS :DPMO02 
033602 001426 BEQ 5001$ ‘BRANCH AROUND REPORT IF NONE = DPMOO2 
033604 104401 033612 TYPE 71$ is TYPE ASCIZ STRING 
033610 000415 BR 70$ GET OVER | THE ASCIZ 
-71$: _-ASCIZ / TOTAL ERRORS THIS PASS / 
033644 56s: 
033644 013746 001112 MOV SERTTL,-(SP)  ;;SAVE SERTTL FOR TYPEOUT 
3 NUMBER OF ERRORS IN OCTAL 
033650 104403 TYPOS *:G0 TYPE=-OCTAL ASCII 
03365 .BYTE 6 >: TYPE 6 DI 
03365 “BYTE :: SUPPRESS LEADING ZEROS 
033654 005037 001112 CLR SERTTL 3 E 
6 104401 001313 5001$: TYPE S$CRLF >: TYPE CARRIAGE RETURN, LINE FEED 
03 105777 145254 $GET42: TSTB  @$TKS 1S A CHARACTER WAITING? 
033670 12004 BPL $6742 BRANCH IF NOT 
033672 013 001146 001244 MOV STKB, $TMPS “WASTE THE CHARACTER, CLEARING READY 
03 005737 034104 TST EPENDS SEE WHICH STATE ENABLE/DISABLE IS IN 
033704 001017 BNE :BRANCH IF D ED 
03 706 005237 034104 INC ap iSET F LAG DISABLING PRINTOUTS 
03 712 104401 033720 TYPE ;3TYPE ASCIZ STRING 
033716 000411 BR T OVER THE ASCIZ 
ome 7958: .ASC1Z OAS es EOP’S DISABLED! <CRLF> 
03374 000415 BR $6742 sBRANCH OVER ENABLE ROUTINE = DPMOO 
033744 005037 034104 SDISAB: CLR EPENDS “CLEAR FLAG ENABLING PRINTOUTS :DPMOO 
03 750 104401 033756 TYPE 65$ 3:5 TYPE ASCIZ STRING 
3754 000410 BR $ OVER THE ASCIZ 
annrns 51658: ,ASCIZ <CRLF>!EOP'S ENABLED !<CRLF> 
038776 013700 000042 $G1T42C: MOV ars2, R0 ; GET MONITOR ADDRESS 
001414 BEQ SDOA “BRANCH 0 MONITOR 
sr 005046 CLR =(SP en : INSURE THE "'T'’ BIT IS CLEAR 
0 012746 034014 MOV #S$CLR.T.-(SP) ::SETUP FOR AN RTI OR RTT 
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END OF PASS ROUTINE 


6427 
6428 


034012 


000426 


1044 
032 
001131 
000416 


1238 


ee 


000042 


000020 
010000 


034076 


000020 
034072 


377 


040000 


034150 
177060 
000004 
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145070 


000 


145020 


000004 


ee — 


SEQUENCE 132 
BR SRTRN ;:G0_DO AN RTI OR RIT 10 LOAD THE PSW 
=< *:WITH A CLEARED ‘'T’' BIT 
MOV a#42,R0 : INSURE RO CONTAINS THE MONITORS 
BEO SDOAGN RETURN ADDRESS 
RESET *=CLEAR THE WORLD 
SENDAD: JSR PC, (RO) *:G0 TO MONITOR 
NOP ::SAVE ROOM 
NOP :: FOR 
NOP ::ACT11 
SDOAGN: 
TRAP ;3PUSH OLD PSW AND PC ON STACK 
BIC #20, (SP) *=CLEAR THE ‘'T’’ BIT 
BIT #81T12,aSWR ;3RUN WITH TRACE TRAP? 
BNE “BR IF 
COM $TBIT <°1S IT TIME FOR TRACE TRAP 
BM] 1$ ::BR IF NO 
BIS #20, (SP) *=SET TRACE T 
1$: MOV WSLOOP,-(SP) § ::JUMP TO START OF TE 
SRTRN: RTI :ERET THIS IS CHANGED TO 
RIT’ IF ‘RTT’ IS A LEGAL 
‘INSTRUCTION 
SLOOP: 
JMP a(PC)+ : sRETURN 
SRTNAD: .WORD LOOP ale 
$TBIT: .WORD -"T'* BIT STATE INDICATOR 
SENULL: -BYTE -1,-1,0 “NULL CHARACTER STRING 
EPENDS: .WORD 0 sLOCATION FOR EOP PRINT FLAG = DPMO02 
$PASS2: .WORD 0 “LOCATION FOR PASS COUNT OVERFLOW : DPMOO2 


-SBTTL SCOPE HANDLER ROUTINE 


eTT it iiitiiiiiiiiiii iti 
THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
fee LOAD THE TEST ge pitty: NM) INTO THE DISPLAY - (DISPLAY<7:0>) 
LOAD THE ERROR FLAG Syke INTO DISPLAY<15:08> 

STE, SwlTC OPTIONS PROVIDED BY THIS ROUTINE ARE: 


LOOP ON TES 
;*Swi 1=1 INHIBIT ITERATIONS 
; *SwO9=1 LOOP 
LOOP ON TEST IN SWR<7:0> 













: #Su0B=1 
3: *CAL 
;* SCOPE ::SCOPE=I0T 
SSCOPE: 
CKS ;:TEST FOR CHANGE IN SOFT-SwR 
1$: BIT #B1T14,aSWR *:LOOP ON PRESENT TEST? 
V “YES IF asité= 
-WHRHASTART OF CODE FOR THE XOR tee TERAAA 
SXTSTR: BR 6$ :31F THE "XOR'* TESTER CHANGE 
=: THIS INSTRUCTION TO A 'NOP’’ (NOP=240) 
MOV aFERRVEC -(SP) ::SAVE THE CONTENTS OF A THE ERROR VECTOR 
MOV rh RAVEC SISET FOR TIMEOUT 
TST a4177060 ‘TIME OUT ON XOR? 
MOV (SP) +, a#ERRVEC : IRESTORE THE ERROR VECTOR 
BR $SVLAD *:G0 TO THE NEXT TEST 
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CKFPBCO FP11F FLTG PN 
SCOPE HANDLER ROUTINE 
03415 92 636 S$: CMP (SP)+, (SP)+ s:CLEAR THE STACK AFTER A TIME OUT 
034152 012637 000004 mOV (SP)+.@#ERRVEC ::RESTORE THE ER TOR 
0341 0 BR 7 *:LOOP ON THE PRESENT TEST 
0 160 6$::MMAAAEND OF CODE FOR THE XOR’ TESTERAAMMA 
0 032777 000400 144752 git 1708, aSw ::LOOP ON SPEC. TEST? 
0 170 127737 144744 001102 CAPE SSuR, STSTNM 7 0N THE RIGHT TEST?  SWR<7:0> 
a8 o1 3737 177766 034422 2%: MOV 177766.CPSAVE :MOVE CPU ERR REG VALUE TO LOC FOR TST 
0 032737 000001 034422 BIT WBITOO.CPSAVE :SEE IF THE POWER MONITOR BIT IS ON 
034214 001406 BEQ 2 “BRANCH TO CONTINUE ROUTINE IF CLEAR 
034216 042737 000001 177766 BIC #81100, 177766 “CLEAR THE BIT FOUND TO BE SET 
034224 106177 EMT +177 “CALL SPECIAL POWER FAIL BIT ERROR CALL : 
0 105037 001103 CLRB = SERFLG “CLEAR THE ERROR FLAG FOR NEXT TEST . 
0 105737 001103 2000$: TSTB  SERFLG ; WAS THERE AN ERROR? 
0 1424 BEQ “4 :BR IF NO 
0 40 3737 001115 001103 CAPS SERMAX,, SERFLG MAX, ERRORS FOR THIS TEST OCCURRED? 
034250 032777 001000 144662 BIT #BITO9, aSwR *:LOOP ON ERROR? 
034256 goises BEQ 33 € 
0 013737 001110 001106 7S: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
034 000446 BR SOVER 
034270 105037 001103 4$: CLRB =: SERF LG :zZERO THE ERROR FLAG 
034274 005037 001302 CLR STIMES 73CLEAR THE NUMBER OF ITERATIONS TO MAKE 
034 0004 BR CAPE TO THE NEXT TEST 
034302 032777 004000 144630 3S: BIT #B1T11,aSWR :EINAIBIT ITERATIONS? 
034310 001011 BNE 1$ -:BR IF YES 
034312 005737 001324 TST SPASS 331F aR PASS OF 
034316 0014 BEQ 1$ 33 INHI TERATIONS 
034 005 3 104 INC SICNT *: INCREMENT ITERATION COUNT 
034324 023737 001302 001104 C STIMES SICNT #3 CHECK THE NUMBER OF ITERATIONS MADE 
0343 2 002024 BGE “BR IF MORE ITERATION REQU 
034 012737 000001 001104 1S: MOV #1,SICNT : 3REINITIALIZE THE ITERATION COUNTER 
034342 013737 034420 001302 MOV SAXCNT STIMES T NUMBER OF ITERATIONS TO DO 
034350 105237 001102 SSVLAD: 33 COUNT TE S 
034354 113737 001102 001322 MOVB ST SIN STESIN ::SET TEST NUMBER IN APT MAILBOX 
034 011637 001106 (SP) ,$LPADR SISAVE SCOPE LOOP ADDRESS 
034 011637 001110 (SP); SLPERR :SAVE E LOOP 
034372 005037 001304 ES APE : CLEAR THE ESCAPE FROM ERROR ADDRESS 
034376 M2737 000001 001115 RMAX Y ALLOW ONE(1) ERROR ON NEXT TEST 
034404 013777 001102 144530 SOVER: StSTH. @DISPLAY : OISPLAY TEST NUMBER 
034412 013716 001106 MOV SLPADR, (SP) *:FUDGE RETURN ADDRESS 
034416 000002 ATI 7 FIXES PS 
034420 000001 SMXCNT: 1 *MAX. NUMBER OF ITERATIONS 
034422 CPSAVE: .WORD 0 “LOCATION TO SAVE CPU ERR REG CONTENTS ;:DPMOO1 


FF 
SS 


-SBTTL ERROR HANDLER ROUTINE 


SRAAAARAAAERERAAAEEEAEEEAEEAERAERAARERRAERAEAEAARARAERERAAAERERE 


THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE E TEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


;*AND GO TO ERTYPE ON ERROR 
ze THE SWITCH adhd, PROVIDED BY THIS ROUTINE ARE: 







T 04 E 
2 *SW13=1 INHIBIT ERROR TYPEOUTS 
;*SW10=1 BELL ON ERROR 
; *SWO9=1 LOOP ON ERROR 


LEE LL 
f a em a = 
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ERROR HANDL 




















ER ROUTINE 

7 *CALL 

:* ERROR N : SRROR=EMT AND N=ERROR ITEM NUMBER 
0 ‘ 000000 IBSAVE : .WORD 0 :LOC'N TO HOLD SERRPC DURING DUAL ERR  ;DPMOO1 
0 044 CKSWR ::TEST FOR CHANGE IN SOFT-SWR 
0 1052 001103 7$: INCB = SERFLG ZiSET THE ERROR FLAG 
034434 001775 BEG 7 ON'T Ler THE FLAG GO TO ZERO 
0 013777 001102 144476 MOV STSTNM.@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
034444 032777 002 144466 BIT #B1T10.aSWR ‘BELL ON ERROR? 
034452 001402 BEQ 1$ ‘NO = SKIF 
034454 104401 001306 TYPE $BELL ;7RING BELL 
034460 005237 001112 1$: INC SERTTL ‘COUNT THE NUMBER OF ERRORS 
034 011637 001116 MOV (SP) , SERRPC <°GET ADDRESS OF ERROR INSTRUCTION 
0344 162 7 000002 001116 SUB 4 p 
034476 11 030 144414 001114 MOVB eet SITEMB ;::STRIP AND SAVE THE ERROR ITEM CODE 
034504 122737 000177 001114 CMPB TEMB :SEE IF THIS IS THE POWER FAIL CALL 
034512 001421 BEQ CH AROUND ROUT TI 
034514 013737 177766 034422 MOV be, cosa “MOVE CPU ERR REG TO CPSAVE FOR TEST 
034522 032737 000001 034422 BIT TOO.CPSAVE :SEE IF POWER MONITOR BIT IS SET 
034530 001412 BEQ ‘BRANCH 
034532 042757 000001 177766 BIC ya1100, 177766 CLEAR THE BIT FOUND SET 
034540 013737 001116 034424 MOV RRPC, IBSAVE VE SERRPC 
034546 104177 ERROR +177 “CALL SPECIAL POWER MON BIT ERROR 
0534550 013737 034424 001116 in MOV IBSAVE , SERRPC “RESTORE SERRPC 
034556 032777 020000 144354 BIT 1T13,a@SwWR ::SKIP TYPEOUT IF SET 
034564 001004 BNE SKIP TYPEOUT 
034566 004737 037040 a PC ERTYPE 7:60 TO USER ERROR ROUTINE 
034372 104401 001313 —- os  ,SCRLF 
034576 122737 000001 001336 CMPB #APTENV.SENV =: : RUNNING IN APT MODE 
034604 001007 BNE :3NO, SKIP 
034606 113737 001114 034620 ITEMB,21$ = SE E 
034614 004737 035672 JSR PC, SATY4 ::REPORT FATAL ERROR TO APT 
034620 000 21$:  .BYTE 
034621 000 “BYTE g 
034622 000 22$: BR 2$ ::APT ERROR LOOP 
034624 005737 034424 2$: TST IBSAVE :SEE IF R FAIL ERROR CALL :DPMOO01 
034 001005 BNE “BRANCH IF NOT - HALT NOT ALLOWED :DPMOO1 
034632 005777 144302 TST aswR ::HALT ON ERROR 
034636 100002 BPL 33 73SKIP IF CONTINUE 
034640 000000 HALT *:HALT ON ERROR! 
034642 1044 CKSWR = TEST FOR CHANGE IN SOFT-SWR 
034644 032777 001000 144266 38: BIT #B81T09.aSwR ;3LOOP_ON ERROR SWITCH SET? 
034652 001405 BEQ 4$ :°BR IF NO 
034654 005737 034424 TST IBSAVE 
034660 001002 BNE 4$ 
034662 013716 001110 MOV SLPERR, (SP) : 
034666 005737 001304 4$: TST SESCAPE 
0 001405 BEQ 5 ::BR I 
0 674 005737 034424 TST BSAVE “SEE IF THIS IS THE PWR MNTR BIT ERROR ;:DPMOO1 
0 001002 BNE $ “BRANCH IF SO - NO FUDGING ALLOWED -DPMOOT 
034702 013716 001304 ™ MOV SESCAPE.(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
034706 020737 034024 000042 CMP #SENDAD, 42 p:ACTo1 AUTO-ACCEPT? 
034714 001001 BNE 6$ : BRANCH IF NO 
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RQ 


RG 


FerEgeeess 
MOSM WAO 


OOOooCooOooooooO 
DIAN AIAN 
MMAMMAMMAM 


33 


WG 





000000 


032777 
O91013 


011 

198777 
122777 
001002 


sins 


Sue 


SSeaeeosess 


PRT 6 


001000 
ant 
00037 


000002 
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SEQUENCE 
HALT 73 YES 
BIT #B1T09,aSwR 
BNE RM1 
MOV (SP) ,SREGO sSEE IF ERROR #377 
ADD o5 EG 
CMPBsédW#'377, @SREGOD 
BNE RM 
ADD #2, (SP) 
ERM10: ARTI 
.SBTTL SAVE AND RESTORE RO-RS ROUTINES 
SERRA ERATE AAA AAA AERA ARAERAAARAAARA REAR ERE EES 
s*SAVE RO-R5 
:* : 
:* SAVREG 
:®UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
;* 
; *TOP=-=(+16) 
s* +2---(+18) 
p* +4---R5 
:* a 
:% +8---R3 
2%4+10---R2 
3%412---R1 
-#+14---R0 
SSAVREG: 
MOV RO,-(SP) :;PUSH RO ON STACK 
MOV R1,~(SP) :;PUSH R1 ON STACK 
MOV R2,-(SP) ; PUSH Re ON STACK 
MOV R3,-(SP) 37 2PUSH ON STACK 
MOV R4,~(SP) ::PUSH R4& ON STACK 
MOV RS,-(SP) : PUSH RS ON STACK 
MOV 22(SP),- (SP) :: SAVE PS OF MAIN FLOW 
MOV (SP) ,-(SP) ::SAVE PC OF MAIN FLOW 
MOV (SP) ,-(SP) :;SAVE PS OF CALL 
aH (SP) ,-(SP) :;SAVE PC OF CALL 
i. RO-R5 
: tt RESREG 
SRESREG: 
MOV (SP)+,22(SP) ssRESTORE PC OF CALL 
MOV (SP)+,22(SP) : sRESTORE PS OF CALL 
MOV (SP)+,22(SP) : :RESTORE PC OF MAIN FLOW 
MOV (SP)+,22(SP) > :RESTORE PS OF MAIN FLOW 
MOV (SP)+,R ::POP STACK INTO R 
MOV (SP) +,R4 $3 STACK INTO R4& 
MOV (SP)+, 3 ::POP STACK INTO R3 
MOV (SP)+,R ::POP STACK IN 
MOV (SP)+,R ::POP STACK INTO R1 
ary (SP)+,RO ::POP STACK INTO RO 


-SBTTL TYPE ROUTINE 


© = PRAAAEAAAERAEARERAEAAEEAEAEEAAEAEEAAAAAAARAAAARARAAAEAEAAAAREAAAAARAERAARE 


[*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 


135 


WV 
& © 
w 
& 


oo 


Oooocoocooooooooooo 
SRNSSNOHNGHUOSHO PORES 


oooooo 
WIAA IAI IOI A 
MAMMA AMI AA A aA A MI A A a aa 
wc cl adh cmd) ed cena) meee ech cel) mend wend eed send ned cme eed wed ed med end wed 


WWW 


Oooococ][e]o 
AWA 


MMi WWI 
ee es 
=) me ALO 


VE & 


Sua 


oocooo OoOoOoOoo OO 
WIAA 


WIA 


VM WV 


S-Ba oe 
Won — 
ENONSS 
~NwM ALUSE 


$= 
J 
ae 


" 
S 
™N 


=8 
—\— 
8 
WMOw 


238 
Bases 
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001157 


000002 
000001 


000100 


035124 
035662 


000040 


000002 
000011 
000200 


035414 


035266 
001156 


001154 
000001 


35266 
35414 


035266 


000007 
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001336 
001337 


001337 


035414 


; *NOTE?: 
; *NOTES: 


7 


-f 
$TYPE: 


1$: 


61$: 
62$: 
2$: 
60$: 
3$: 


4$: 


5$: JSR 
6$: 


7$: 


kg 
JSR 

BITB 

BNE 


; * THE ROUTINE WILL tee 
; *NOTE1: SHULL C 


a NUMBER OF 
TAINS THE CHARACTER " BE USED 
srILLS. CONTAINS THE R_ OF 


SEQUENCE 


NULL CHARACTERS AFTER A LINE FEED. 
AS THE FILLER CHARACTER. 
FILLER CHARACTERS REQUIRED. 


SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


3 *CALL: 
:#1) USING A TRAP INSTRUCTION 
TYPE »MESADR 


STPFLG 
1$ 


#APTENV , SENV 
a 
62$ 


RO.61$ 
PC, SATY3 


#APTCSUP,SENVM 
a 7 (SP) 
(SP)+ 
rs RO 

(SP) 
an is 
CRLF, (SP) 


(SP)+ 





SCHARCNT 
2s 


PC. STYPEC 
SFILLC, (SP)+ 


L.~(SP) 
1(SP) 
47 thle 5 
SCHARCNT 


aS PROCESSOR 


gs¥p AF 
8 SCHARCNT 


33MESADR IS FIRST ‘ADDRESS OF AN ASCIZ STRING 


e318 — A TERMINAL? 
AL ve IF NO TERMINAL 


VE RO 
SIGET ADDRESS OF ASCIZ STRING 
aa ING IN APT 

NO,GO eee eo CONSOLE 







ADDRESS 
STAPT CONSOLE SUPPRESSED 
:sYES,SKIP TYPE OUT 
s PUSH CHARACTER TO BE TYPED ONTO STACK 
IF IT ISN°T THE TERMINAT 
HIF TERMINATOR POP IT OFF THE STACK 


STORE 
«ADJUST RETURN PC 
: =BRANCH IF <HT> 
::BRANCH IF NOT <CRLF> 


:POP <CR><LF> EQUIV 
SI TYPE A CR AND LF 


+3 CLEAR CHARACTER COUNT 
3;GET NEXT CHARACTER 
3360 TYPE THIS CHARACTER 

IT TIME FOR 4 CHARS .? 

aH NEXT 
FILLER CHARS. NEEDED 

NULL CHAR. 

NULL NEED TO BE TYPED? 

POP THE NULL OFF OF STACK 


L 
NOT COUNT AS A COUNT 










S2Rs 
rn 
hs 
z 


a Mey WITH SPACE 
:zTYPE A SPACE 
; ;BRANCH IF NOT AT 

AB STOP 


CKFPBCO 
TYPE ROU 


FF 


an 


i 
MAMMA AULA Ia Zz, — 


~ 
&- 


Ooooo0oocococooeooo =" 
td ed ed 
MMO 


r~ 


WANA AW 


ooo°oo oo 
rtrtetete teeter 


MMMM 


oo 
Win 
wi 


SINESES ESSE 


So 
Ww 
Ww 
2 


035416 


1F FLTG PNT 


seri 
105777 
100022 
oe 
a 


105777 
75 


PRT B 


000015 
035414 
000012 


H 11 
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000021 
143566 
000002 


000002 


TST 
BR 
STYPEC: 


101$: 


102$: 
10S: 


1$: CMPB 
Q 


INCB 
SCHARCNT : .WORD 


STYPEX: RTS 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


pager wor gee yon ag mayer gg w gh phn nnie atg 
THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 

+ #0CTAL (ASCII) NUMBER AND TYPE IT. 

: s$TYPOS~--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


one ene es ® 
ue 
@® 
~4 
m 


itn goy Ta TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


;*$TYPOS OR 
;*CALL: 
:* MOV 


- TYPON 
{$TYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


‘* MOV 


(SP) + 

2$ 

asTKks 

aS TKe -($P) 
#177660, (SP) 
#SXOFF, (SP) 


asTks 
1013 
, (SP) 


(SP)+ 
oerPs 
2(SP) ,ASXON 


Stree ree 
#CR,2(SP) 


SCHARCNT 
PLE CSP) 
TYPEX 
(PC)+ 


PC 


a$TKB, (SP) 
#177600, (SP) 
#SXON 


on e2eoen— 
“+O 


NUM ,-(SP) 


NUM, = (SP) 


NUM, = (SP) 


ee 


SEQUENCE 137 


eer SPACE OFF STACK 
T NEXT CHARACTER 
20H IN KYBD BUFFER? 
;BR_IF NOT 


<TGET CHAR 
3 STRIP EXTRANEOUS BITS 
ee S CHAR X XOF F 


:zWAIT FOR CHAR 


33FIX STACK 
3;WAIT UNTIL PRINTER IS READY 
5315 ee ee RANDOM XON? 


<TLOAD CHAR TO BE TYPED INTO DATA REG. 
3318 CHARACTER A CARRIAGE RETURN? 


sBRANCH IF 
33 YES=~CLEAR CHARACTER COUNT 
1S Sees fe A LINE FEED? 
sBRANCH_IF re 


COUNT THE CHARACTER 
3;CHARACTER COUNT STORAGE 





; ;NUMBER TO BE TYPED 
::CALL_FOR TYPEOUT 
7 3N=1 7: 6 FOR NUMBER OF DIGITS TO TYPE 


£. NSSUPP LEADING ZEROS 
=SUPPRESS LEADING ZEROS 


s;NUMBER TO BE TYPED 
STCALL FOR TYPEOUT 


; NUMBER TO BE TYPED 





en 
ee eee 
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BINARY TO OCTAL (ASCII) AND TYPE 














:* TYPOC ::CALL FOR TYPEOUT 
035420 01 7646 000000 STYPOS: MOV ::PICKUP THE MODE 
035424 11 ; 1 035651 MOVB “:LOAD ZERO FILL SWITCH 
035432 11 : 7 653 MOVB 3 R OF DIGITS TO TYPE 
03548 16 2 ADD ::ADJUST RETURN ADDRESS | | 
035444 1127 1 035651 STYPOC: MOVB ::SET THE ZERO FILL SWITCH | 
035452 112737 035653 MOVB *:SET FOR SIX(6) DIGITS 
035 112737 035650 $TYPON: MOVB +: SET THE ITERATION COUNT 
0 010346 MOV SAVE 
0394 010446 MOV SAVE R46 
0 010546 MOV : SAVE R5 
035474 113704 035653 MOVB *:GET THE NUMBER OF DIGIIS TO TYPE 
035500 005404 NEG 
035502 0627 ADD : SUBTRACT IT FOR MAX. ALLOWED 
3306 1104 7? 0356 MOVB E *:SAVE IT FOR USE 
035512 113704 035651 MOVB LR4 *:GET THE ZERO FILL SWITCH 
035516 016605 000012 MOV 12(SP).R5 *:PICKUP THE INPUT NUMBER 
035522 005003 CLR R *:CLEAR THE OUTPUT WORD 
035524 006105 1$: ROL  =-R5 *:ROTATE MSB INTO "'C’’ 
035526 000404 BR 3$ 7:60 DO MSB 
0355 006105 2$: ROL RS : FORM THIS DIGIT 
035532 006105 ROL R5 
006 R5 
R5,R3 
103 R3 ::GET LSB OF THIS DIGIT 
SOP.IDE :: TYPE THIS DIGIT? 
75 ::BR IF NO 
9177770,R3 *:GET RID OF JUNK 
Re See latss THIS 0? 
5$ 7 BR IF YES 
*:DON'T SUPPRESS ANYMORE 0°S 
#°0.R3 *:MAKE THIS DIGIT ASCII 
#° URS > MAKE ASCII IF NOT ALREADY 
#° [RS “1S THIS A SPACE CHARACTER? = DPMO02 
rs “BRANCH IF SO = DON'T TYPE > DPMOO2 
R3,8$ > SAVE FOR TYPING 
8$ 7:60 TYPE THIS DIGIT 
$ocnT > COUNT BY 1 
*:BR IF MORE TO DO 
6$ ::BR IF 
R4 sil T DIGIT ISN'T A BLANK 
2$ 2:60 LAST DIGIT 
(SP)+,R5 > RES 
(SP)+,R4 > =RES 
(SP)+,R3 : RES 
2(SP) ,4(SP) >: SET STACK FOR RETURNING 
(SP)+, (SP) 
: RET 
0 3ST FOR ASCII DIGIT 
TE TOR FOR TYPE ROUTINE 
0 *:OCTAL DIGIT COUNTER 
0 *:ZERO FILL SWITCH 
‘NUMBER OF DIGITS TO TYPE 


_ 








Cappers FP11F FLTG PNT PRT B 
COMMUNICATIONS ROUTINE 


6438 


6439 


ety ty ty ty4 
Rie 3 


oo olan) aja loja~lololo) 
SNNN SY 
~— 
oO 


Bee 


o 


oOOooCcoooe0eo 
WIALAIN ANIA AN 


MAMA AMA MIMI AM 


g 


So 

Ww 
Sas 
3 


036040 
036044 
0 


035054 


036120 
001336 
001316 
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001316 
036030 
000004 


001320 
000004 





SEQUENCE 


-SBTTL APT COMMUNICATIONS ROUTINE 


2s Pe eee eee 





TY1: 
SATY3 
SATY4 
TYC: 
18: 
MOV 
2s: TSTB 
BNE 
SUB 
ASR 
MOV 
MOV 
BR 
3$: MOV 
ADD 
MOV 
JSR 
4$: WORD 
5$: 
10S: TST8 
BEQ 
TST 
BEQ 
11$: TST 
BNE 
MOV 
ADD 
INC 
12$: CLRB 
CLRB 
CLRB 
MOV 
MOV 
RTS 
LG: .BYTE 
LFLG: .BYTE 
SFFLG: .BYTE 
AEN 
APTSIZE= 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 


#1, SFFLG 
1,SMFLG 


SATYC 
#1, SFFLG 
a1 
suf LG 


5$ 
#APTENV, SENV 


#APTSPOOL , SENVM 


#2.a(3h). 
SMSGT 
1$ 


RO. SMSGAD 
(RO) + 


O§ 

aad oRO 
RO, SMSGLGT 
#4 , SASGTYPE 


sea °2 
<"r 


—~ 

i "yh rs. gt 
ne 3) 
+ et QNno~- ~ 
~< < 
a mi 


oQoov-n- 


;TO REPORT FATAL ERROR 
:iT0 TYPE A MESSAGE 


3;TO ONLY REPORT FATAL ERROR 


:;PUSH RO ON STACK 

; PUSH R1 ON STACK 

3 SHOULD TYPE A MESSAGE? 
* :OPERATING UNDER APT? 
sclF T: 6R 

:¢SHOULD SPOOL MESSAGES? 
+ GET MESSAGE ADDR. 


“BUMP RETURN ADDR. 

i: SEE IF F’ BONE / LAST XMISSION? 
::PUT ADDR IN MAILBOX 
‘FIND END OF MESSAGE 
;3SUB START OF MESSAGE 
T MESSAGE LNGTH IN 

SS PUT LENGTH IN MAILBOX 

*: TELL APT TO TAKE MSG. 

;3PUT MSG ADDR IN JSR LINKAGE 


ADDRESS 
7 PUSH 199776 ON STACK 
*:CALL TYPE MACRO 









N WORDS 


: : SHOUL ULD REPORT FATAL ERROR? 
HIAUNAING UNDER APT? 

‘IF NOT: BR 

Bg ore LAST MESSAGE? 







" “BUMP RETURN a 
: TELL nt TO TAKE ERROR 
;3CLEAR FATAL FLAG 


139 


ee —— 


ee — ——————— 
- — ee ee ee” 
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CKFPBCO FPIIF F 
TTY INPUT ROUTINE 


LTG PNT PRT B 


























6440 .SBTTL TTY INPUT ROUTINE | 
2 REAR AAAAAAAAAAAAEEEAEETEAAREAEKAAARAAEAAAAAAAREAEEARKEEEHEERE | 
FL RAAAAAAAAAAAAAAARARAEEAETARERARAARAAEEAERAAER AKER ES eaaaaaenaeanaese | 
“*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
**ROUTINE IS ENTERED FROM THE HANDLER, AND WILL 
“#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
“WHEN OPERATING IN TTY FLAG MODE. 

036122 022737 000176 001140 $CkSWR: CMP SUREG. SUR s:1S THE SOFT-SWR SELECTED? 

0361 1074 BNE $ + BRANCH IF NO 

036132 105777 143006 TSTB «= @STKS * CHAR THERE? 

036136 100071 BPL 15$ *: JF NO, DON'T WAIT AROUND 

036140 117746 143002 MOVB Te -(SP) *:SAVE THE CHAR 

036144 042716 177600 BIC #*C177, (SP) *:STRIP-OFF THE ASCII 

036150 022726 4 CMP #7. (SPS+ 7:1S IT A CONTROL G? 

036154 001 BNE } ::NO, RETURN TO USER 

036156 123727 001134 000001 CMPB SAUTOB #1 *:ARE WE RUNNING IN AUTO-MODE? 

036164 001456 BEQ > :BRANCH IF YES 

036166 104401 036541 TYPE  ,$CNTLG *:ECHO THE CONTROL-G (*G) 

0361 104401 036546 SGTSWR: TYPE  § .SMSWR °: TYPE CURRENT CONTENTS 

036176 013746 000176 V SWREG, - (SP) =: SAVE SWREG FOR TYPEOUT 

036202 104402 TYPOC *:GO TYPE=-OCTAL ASCII(ALL DIGITS) 

0 104401 036557 TYPE ,SMNEW 3 T FOR NEW SWR 

036210 eee 19$: CLR -(SP) :zCLEAR COUNTER 

036212 005046 CLR -(SP) >: THE NEW SWR 

036214 105777 142724 7$: TSTB = @S TKS 3 THERE? 

036220 100375 BPL 7$ ::I1F NOT TRY AGAIN 

036222 117746 142720 MOVE a$TKkB -(SP) =:PICK UP CHAR 

036226 042716 177600 BIC #*C177, (SP) *:MAKE IT 7-BIT ASCII 

0 ry 021627 000025 9$: CMP (SP) #25 7:1S$ IT A CONTROL-U? 

0 001005 BNE 3 H IF NO 

036240 104401 036534 TYPE SCNTLU “YES, ECHO CONTROL-U (*U) 

036244 062706 000006 20$: ADD SP 1 PREVIOUS INPUT 

036250 000757 *:LET'S TRY IT AGAIN 

036252 021627 000015 10S: *:3S IT A <CR>? 

036256 1022 : ;BRANCH IF 

0 57 000004 ::YES. IS IT THE FIRST CHAR? 

0 00140 : :BRANCH IF YES 

0 016677 000092 142644 =: SAVE NEW SWR 

036274 06 000006 11$: =: CLEAR UP STACK 

036 104401 00131 148: :;ECHO <CR> AND <LF> 

0 304 123727 001135 000001 :*RE-ENABLE TTY KBD INTERRUPTS? 

036312 001 : ) : ;BRANCH IF 

0 1 20600 000100 142622 si ; SRE-ENABLE TTY KBD INTERRUPTS 

0 4 Oot 6 035266 16$: ::ECHO CHAR 

0 1627 000060 :: CHAR < 0? 

0363 24 : :BRANCH if 

0363 1627 000067 77 CHAR > 

O36 §43736 : OPNIPCO | 

036350 $76 itis s:1S T 

036354 140 3 C 

gies Seni | 

Srtrad 316 ::; ROOM F ) . 

0 266 000002 17$: :;KEEP COUNT OF CHAR 


expats FPIIF FLTG PNT 
Y INPUT ROUTINE 


6441 


6442 


ae ae 


3 


SSNSFREE 


Ooooo°o°oo 


104401 
000720 


=zse2 
NSF 


—) 


PRT 6 


177776 
001312 


000004 
142524 
166920 
177600 


142472 


142466 
177600 
000021 


000002 


036624 
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000002 


000004 
000004 
000023 


000002 





ee 


SEQUENCE 
BIS 53 (SP). , (SP) ;3SET IN NEW CHAR 
BR THE NEXT ONE 
18$: TYPE SQUES «TYPE 2<CR><LF> 
» BR 208 +:SIMULATE CONTROL-U 
- SRARARARAERAAERAAAEAARETAEAAAEARARAEREARERERAAAARRARAAAEREERREERES 
:ATHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
;* : 
* RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
:* RETURN HERE > CHARACTER IS ON THE STACK 
ve *:WITH PARITY BIT STRIPPED OFF 
$RDCHR: ° (SP) ,-(SP ::PUSH DOWN THE PC 
Mu. 4(SP p) .2tS °:SAVE THE PS 
18: TSTB asTK s;WAIT F 
BPL 3A C CTER 
MOVB $ a@$TKB,4(SP) *:READ THE TTY 
BIC that Ne GSP) ::GET RID OF JUNK IF ANY 
CMP 4(SP) #23 :31S 11 A CONTROL-S? 
BNE CH IF No 
2$: TSTB asTks 
BOVE (Sp) 
BIC he SP) 
CMP 
BNE 
BR H 
3S: CMP 4(SP) ,#SXON : RANOO1 
BEQ :RANOO1 
CMP 4(SP) ,#140 
BLT 
CMP 4(SP) #175 
BGT 4 
BIC #40.4(SP) 
RTI 


4$: 
SCNILU: .ASCIZ pe Ast et > 





SCNTILG: .ASCIZ <15><12> 
SMSWR: .ASCIZ o1 ><12>/SuR = 
SMNEW: .ASCIZ / NEW = 


-SBTTL TRAP DECODER 
jeRedaeeaeeeeeeeeeereeeereeseanagenaereeeeaeereeeereereereneeeee 
‘THIS ROUTINE WILL ap THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 

; Pe USE IT TO INDEX T THE TRAP TABLE FOR THE STARTING ADDRESS 

: *OF GO TO THAT ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 








i TRAP RO,-(SP) ::SAVE RO 
mov 2(SP) RO *:GET TRAP ADDRESS 
TST =(RO) = :BACKUP BY 2 
(RO) ,RO *:GET RIGHT BYTE OF TRAP 


ASL = :POSITION FOR INDEXING 
mov STRPAD(RO).RO INDEX TO TABLE 
RTS RO :GO TO ROUTINE 
-THIS 1S USE TO HANDLE THE “GETPRI"' MACRO 


$TRAP2: mov (SP) ,-(SP) : MOVE THE PC DOWN 
RTI 






4(SP) ,2(SP) ::MOVE T PSwW DOWN 
= RESTORE THE PSW 





a ae 


a ee i —EE 


141 





CKFPBCO FPIIF FLTG PNT 
TRAP TABLE 


Ooooo0oo0o0oo 
x 


seeescesessese 
~wE 
KIFSAUSSSSSS 


SFS2o 
Ae 


PRT 6B 


037032 
000340 


142230 
037036 
036726 


037032 


a.11 
MACRO M1113 20-OCT-81 08:27 PAGE 33-18 


000026 


000024 


000024 


000024 
000026 


000002 


- SBTTL 
sis abs CONTAINS he STARTING ADDRESSES OF 
; *BY anti TRUCTION. 





STRPAD: STRAP2 
3; CALL=TYPE TRAP+1( 104401) 
ALL=TYPOC TRAD #9 (1 4 ? 
*  CALL=TYPOS TRAP+3 (104403) 
*:CALL=TYPON TRAP+4(104404) 
*:CALL=GTSWR § TRAP+5(104405) 
= :CALL=CKSWR TRAD +6 (1 406) 
L=RDC TRAP+7(104407) 
;3CALL=SAVREG — TRAP+10(104410) 
=RESREG TRAP+11(1046411) 
336 L=RSETUP TRAP #12(1 412) 
*:CALL=LPERR § TRAP+13(104413) 


-LPER 
STERM=.-STRPAD 





meee eee ee ee itt 


SEGUENCE 142 


THE ROUTINES CALLED 








TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
GET SOFT-SWR SETTING 

TEST FOR CHANGE IN SOF T~SWR 

TTY TYPEIN eA ROUT INE 

SAVE RO-R5 TINE 

RESTORE RO-R5 ROUTINE 

RCUTINE TO INITIALIZE AFTER EVERY TEST 
ROUTINE TO SET LOOP ON ERROR ADDRESS 








-SBTTL_ POWER DOWN AND UP ROUTINES 
SRAAAAAAAARAAAAAARAAAAAAAAAEAAAAARLAARAAARAREREEARAAERERERERAAARES 
“POWER DOWN ROUTINE 
SPWRDN: MOV F300. ator rit te sSET FOR FAST UP 
MOV 0:7 
MOV PUSH RO ON STACK 
MOV 5 ous 
MOV 7 :PUSH 
MOV : PUSH 
MOV : :PUSH 
MOV : :PUSH 
MOV : PUSH 
MOV 8 =: SAVE 
mov #SPWRUP ,a#PWRVEC ::SET UP VECTOR 
BR 72 > :HANG UP 
"oon ay" le gta alae 
“POWER UP ROUTINE 
SPWRUP: MOV #SILLUP ,@APWRVEC ;:SET FOR FAST DOWN 
MOV SSAVA6, SP ::GET SP 
CLR SSAVR6 ;3WAIT LOOP FOR THE TTY 
1$: INC SSAVR6 :3WAIT FOR T 
BNE 1$ * OF 
MOV (SP)+,@ POP STACK INTO @SwWR 
MOV (SP)+.R *=POP STACK INTO R5 
MOV (SP)+,R4 *:POP STACK INTO R4 
MOV (SP)+,R3 *:POP STACK INTO R 
MOV (SP)+,R2 ::POP STACK INTO R 
MOV (SP)+ RI *:POP STACK INTO R1 
mOV ee RON VEC SeSET UPI gl Re DOWN VECTOR 
MOV FSPURON,arPun ::PRIO: p 
TYPE ::REPORT THE POWER FAILURE 
SPWRMG: .WORD POWERM : :POWER FAIL MESSAGE POINTER 
MOV (PC)+, (SP) * RESTART AT STAR 
SPWRAD: .WORD § ; SRESTART ADDRESS. 
BIC #20,2(SP) ;sCLEAR ‘'T’’ BIT 
CLR ss STBIT TICLEAR THE ‘T’’ BIT FLAG 


ees 


FESFLEFF F 
rw = 


wv 


oc 


PaRES 


FSSSSSss 
SSIES 


SSEVRARAN ALS SaNoAran 


BRAS 


LF 


ISSSSSSSSSSSSSSSSSSSSSSSS SS Ss 


88 


11 
3 MACRO M1113 20-OCT-8: 08:27 PAGE 33-19 SEQUENCE 143 















PNT PRT 
AND UP ROUTINES 
70 RTI | 
70 SILLUP: HALT 33 THE POWER UP SEQUENCE WAS STARTED | 
70 é BR 72 BEFORE THE POWER DOWN WAS COMPLETE | 
0370 SSAVR6: 0 < {PUT THE SP HERE 
.SBTTL ERROR TYPE OUT ROUTINE 
seeeeeeeeeteteeeeeeeeeeeeeeneeeekeetteeeeeeeeeeeenereeeeeeeneeee 
+ ee keReeeeeeeeeekeeeeeeaeeeekenakeKeeeteeteeeeteteeeeneeeene 
:STHIS ROUTINE IS CALLED To TYPE AN ERROR MESSAGE WHICH IS INCLUDED 
-#IN THE ERROR MESSAGE DATA TABLE. IT IS CALLED BY THE SERROR ROUTINE 
:#0R BY FIRST SETTING SITERS EQUAL TO THE ERROR TABLE ITEM TO BE PRINTED 
-*#OUT AND THEN ECECUTING A: 
ie JSR PC .ERTYPE 
;* 
7040 104401 001313 ERTYPE: TYPE SCRLF : TYPE A CRLF 
7 113737 001102 001232 MOVB  $TSTNM.STMPO §§ :MOVE TEST NUMBER TO STMPO 
705 042737 177400 001232 BIC #177400,$TMPO CLEAR THE UPPER BYTE 
7 013737 001116 001234 MOV SERRPC $TMP1  § :GET PC OF CALL 
7 010046 MOV =( (SP), ° SAVE 
7070 113700 001114 MOVB otf MB,R “GET THE ITEM NUMBER 
7074 2700 177400 BIC #177400, Bo “CLEAR THE UPPER BYTE 
7100 001 1$ “BRANCH IF ITEM IS ZERO 
71 13746 001116 MOV SERRPC.-(SP) | :MOVE THE ERROR PC TO THE STACK FOR PRINTING 
7106 1044 TYPOC “PRINT THE PC 
7110 000137 037410 JMP 3s * JUMP TO EXIT = ALL DONE 
7114 2700 0003 1$: CMP #377.RO “SEE IF ERROR # IS 377 
7120 1 BNE & ‘BRANCH IF NO 
7122 01 000004 MOV 4(SP) RO ‘MOVE ITEM ADDRESS ON STACK TO RO 
7126 011 MOV (RO) ,RO *MOVE ITER TO RO 
71 2700 000400 ADD “ADD 400 TO R 
71 10037 001320 3$: MOV RO, SFATAL *SET ITEM NUMBER IN SFATAL FOR APT :DPMOO1 
5 DEC RO *DECREMENT RO AND 
ASL RO “SHIFT THREE TIMES 
ASL *TO FORM AN INDEX 
300 ASL “FOR THE TABLE. 
700 001442 ? ADD Harr RO “ADD ERROR TABLE START TO RO - FORMS STARTING ADDRESSS 
120 37164 4$: MOV )+ ;PICK UP THE ADDRESS OF THE ERROR MESSAGE 
1404 BEQ CH IF NONE 
104401 TYPE ‘TYPE THE MESSAGE 
5$: .WORD 0 “LOCATION FOR ASCII MESSAGE ADDRESS 
104401 001313 TYPE  ,S$CRLF *TYPE A <CRLF> 
12037 037202 6S: MOV (RO) +,7$ *GET THE DATA HEADER 
14 BEQ as : H IF NO HEADER 
401 TYPE “TYPE THE HEADER 
7$: .WORD 0 LOCATION FOR HEADER ADDRESS 
104401 001313 TYPE  ,S$CRLF “TYPE A <CRL 
10146 8$: MOV R1,-(SP) “SAVE R1 
1 eh6 MOV Re.~(SP) * SAVE R 
10346 MOV R3.-(SP) “SAVE R 
1 001 (RO)+,R1 “GET VHE ADDRESS OF THE DATA TABLE. 
1503 BEQ “BRANCH TO RETURN IF NO DATA. 
11 MOV (RO) .RO “GET A POINTER TO THE DATA FORMAT TABLE. 
10571 9$: TSTB  —_ (RO? ‘IS THE FORMAT 
100 BNE 10$ BRANCH T0 CHECK FOR FORMAT 2 IF NOT 
13146 MOV a(R1)+,-(SP) | :FORMAT ZERO SO TYPE 
10440 TYPOC “AN OCTAL at RCHBER. 
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TYPE OUT ROUTINE 
3 
1 


















6500 6 BR 21$ :BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 
6501 122710 ©0002 10$: CMPB #2, (RO) "IS THE FORMAT T 

6 4 1 BNE 11$ “BRANCH TO CHECK POR FORMAT 3 IF NOT 

& 037434 JSR PC, TOCTNM :TYPE 1ST OCTAL NUMBER 

6 50 7 0374 JSR PC’ TOCTNM ‘TYPE 2ND OCTAL R 

& 54 (53 BR 21 “BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 
4 122710 000003 11$: CMPB #3,(RO) *I1S THE FORMAT THREE? 

& 1 BNE 13 “BRANCH TO CHECK FOR FORMAT 4 IF NOT 

6 12 000004 MOV #4 ,R3 “SET LOOP COUNTER TO TYPE 4 OCTAL NUMBERS 

6 004757 0374 12$: JSR PC. TOCTNM ‘TYPE AN OCTAL NUMBER 

6510 7% 3 S08 R3,12$ ‘SUBTRACT 1 AND BRANCH IF NOT DONE 

6511 7276 b00e22 BR “BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 
rea 037300 122710 000004 13$:  CMPB  4#4,(RO) :1S THE FORMAT FOUR? 

6314 037304 001004 BNE 148 :BRANCH TO CHECK FOR FORMAT 5 IF NOT 

6515 % 01314 V a(R1)+,-(SP) | :MOVE THE DATA lo” One STACK FOR TYPING 

6916 0 10 10440 TYPOS :GO TYPE AN OCTAL NUMBER 

651 le 016 .BYTE 16 “TYPE UP TO 16 DIGITS 

6518 03731 -BYTE 0 : SUPPRESSING LEADING ZEROES. 

6519 037314 BR 21$ :BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 
6520 037 1 122710 000005 14$:  CMPB  #5,(RO) "IS THE FORMAT FIVE? 

65 1 0 001005 BNE “BRANCH TO CHECK FOR FORMAT 11 IF NOT 

6 ; $94 012137 037332 MOV (R1)+,15$ “PUT THE ADDRESS OF THE ASCII STRING IN THE LOCATION 
6523 037330 104401 TYPE :TYPE THE ASCIZ STRING. 

6524 03733< 15$: .WORD 0 “LOCATION FOR THE ADDRESS OF THE ASCIZ STRING 
6525 037 0004¢ BR 22$ “BRANCH TO AND CONTINUE 

65 6 0 1207 0 000011 16$: CMPB  4#11,(RO) 31S THE FORMAT E 2 

6527 0 1005 BNE H TO CHECK FOR FORMAT 12 IF NOT 

45 0 013137 037352 MOV a(R1)+,17$ “MOVE THE DATA TO THE STACK FOR TYPING 

65 50 104401 TYPE :TYPE THE ASCIZ STRI 

6530 03735 17$:  .WORD :LOCATION, FOR THe ADDRESS OF THE ASCIZ STRING 
6531 54 15 BR 22$ ‘BRANCH TO INCREMENT RO AND CONTINUE 

65 h 122710 00012 18$: CMPB  #12,(RO) 31S THE FORMAT TWELVE? 

65 : 1007 BNE CH TO HALT IF NOT - FORMAT NOT RECOGNIZED 

65 64 0131 : MOV a(R1)+,R2 ;MOVE THE DATA TO THE STACK FOR TYPING 

6535 037366 01270 000006 MOV . IX OCTAL NUMBERS 

65 004 7 037434 19$: JSR PC, TOCTNM 

65 7 76 7303 $08 R3.19$ BRANCH IF NOT DONE YET 

65 0 7400 000401 BR 218 NTA A_TAB CHARACTER AFTER TABLE ENTRY 
65 7402 20$: HALT : INED FORMAT FOR DATA????? 

6540 037404 104401 040005 21$: TYPE  ,$TAB “PRINT A TAB AFTER TYPING 4 DATA TABLE ENTRY 

6541 “OF ALL FORMATS EXCEPT FORMATS 5 OR 11 

654¢ 037410 $200 22$: INC RO ;POINT TO THE NEXT FORMAT 

6543 0 rate 5711 TST (R1) THE END OF THE DATA TABLE BEEN REACHED? 

6544 03741 1303 BNE 9$ “BRANCH BACK IF NOT 

6545 037416 104401 001313 TYPE ,$CRLF = DONE. 

6946 7422 012603 MOV (SP)+,R3 *RESTORE R1,R2 AND R3 

6547 0374 ot 2 MOV (SP) +,R2 

6548 0374 12601 MOV (SP)+,R1 

6549 0 74 1 00 23$: MOV (SP)+.RO :RESTORE RO. 

6550 74 7 RTS pc “AND RETURN. 

6552 0 7434 013102 TOCTNM: MOV a(R1)+,R2 “FORMAT TWO SO TYPE TWO 

6553 0374 12266 MOV ono), =(S§P) *OCTAL NUMBERS. 

6554 037440 10440 TYPOC “TYPE THE OCTAL NUMBER 

6555 37442 104401 040007 TYPE SPACE “TYPE A SPACE CHARACTER 

6556 037446 000207 RTS PC “EXIT 





6557 


6558 

6559 

6560 

$20! 

$65 037450 
6564 037454 
ss Sis 
Ssh Sri 
6568 0 7066 
6569 0374 
6570 037474 


6571 037476 
657 

657 

6574 

6575 

657 

6577 
6578 037502 
6579 037506 
6580 037510 
6581 037512 


6582 037514 
$8 
6 gure 
$391 037526 
6592 0375 


6593 037532 
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033340 
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-SBTTL FPP SPURIOUS TRAP TO 244 HANDLER 


sRReRRARERRAAAAREAAAEAAAATEAARAATAAAAAEAAAAAETERAR RARER RE RT Eee 

poonatecepsesenmesneserseocuessseteusatescemnecsnoocosvocceseies 
:STHIS ROUTINE HANDLES UNEXFCCTED TFAPS TO THE FPP TRAP VECTOR AT 244. 
:*THE LAST FPP INSTRUCTION EXECUTED AND ITS ADDRESS HAS BEEN RECORDED 
; * THESE ALONG WITH THE FEC, FPS AND PC OF TRAP ARE REPORTED. 


#PSPUR: MOV (SP) ,STMP2 SAVE PC OF TRAP. 


CMP (SP)+, (SP)+ “RESTORE SP. 

STFPS RO “GET FPS 

MOV RO, STMP3 

STST :GET FEC 

MOV RO, STMP4 

1$: ERROR +247 

RSETUP :G0 INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 
:THE DESIRE TO E THE SOFTWARE 
*VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 

JMP SEOP 


-SBTTL CPU SPURIOUS TRAP TO 4 HANDLER 


ee *RRAEEAAEAEEAEAAEAEAEEAEREEAEAEAAAEAAEKEARERAARAAAEEAAEEERAREKEKRERREREE 
SRARAAEAAAEREAAREARERREEEREEESERAEREARARERAEERERERERERERRERAERREEEEREEE 


:*THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 4. 


CPSPUR: MOV (SP) ,STMP2 sSAVE PC OF TRAP. 
CMP (SP)+,(SP)+ 
1$: ERROR +250 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH _— (HAS 
:THE USER TYPED CONTROL G?) 
JMP SEOP 


-SBTTL CPU SPURIOUS TRAP TO 10 HANDLER 


SRAAAAAAAREREREERAEEEEERERERREREAARAEAARAEAAAERARAAERAAREREREREEE 
“KkeeeeReeeReeeeeReRRAReeeAeeeeATAAAAAERAKeKeeeeeAeAAePAeAeReee 


; #THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 10. 





tPTwO: MOV (SP) ,STMP2 sSAVE PC OF TRAP. 
CMP (SP)+, (SP)+ 
1$: ERROR +251 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 


7SFE IF THE USER HAS EXPRESSED 
: THE DESIRE TO CHANGE THE TWARE 
RTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


JMP SEOP 


SEQUENCE 
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SET LOOP ON ERROR ADDRESS ROUTINE 
6599 _SBTTL SET LOOP ON ERROR ADDRESS ROUTINE 
6600 FERRARA ARERR AEREAEA EAE AEAAAAERAEREERERRRARE RRA HEAARAAARE RAR 
FERRARA AAAAAEREEEAAEAEEEAAAAEAAAAAERARERAEAAERAAEREREREERREREEHEHE 
6601 ;* 
6602 037536 011637 001110 "LPER: MOV (SP) ,SLPERR 
6603 037542 000002 RT! 
6605 .SBTTL FLAG RESET AND CONSOLE TEST ROUTINE 
6606 ITTV TILT Titi iti t titi ttiiitiiiitt itt tii 
OTT I TL tiiitiiiiit iit itiiiii iii 
6607 <$TH IS ROUTINE WILL BE CALLED AT THE END OF EACH TEST TO 
6608 ; *RESET THE STACK, CLEAR THE FPS AND SEE IF THE User HAS TYPED 
6609 TERMINAL. IF THE USER HAS TYPED CONTROL G AND 
6610 : STHERE IS NO PHYSICAL CONSOLE SWITCH REGISTER THEN THE CONTENTS 
6611 **OF THE SOFTWARE SWITCH REGISTER jai BE TYPED IN OCTAL ON THE 
6612 ; *TELETYPE AND THE USER CAN MODIFY IT. 
6614 037544 023727 001140 177570 RSET: CMP SWR,4177570 sSEE IF THERE IS A PHYSICAL 
6615 ; CONSOLE SWITCH REGISTER. 
6616 037552 001001 BNE 1$ 
6617 037554 104406 CKSWR “OTHERWISE TYPE THE CONTENTS 
6618 “OF THE PROGRAM VIRTUAL SWITCH REGISTER 
6619 * AND GIVE THE USER A CHANCE TO 
6620 :MODIFY IT. 
1 037556 012737 037450 000244 1S: MOV #FPSPUR,FPVECT 
é 03 7364 012737 037502 000004 MOV #CPSPUR,ERRVECT 
3 037572 2 012737 037520 000010 MOV #CPTWO, 10 
011600 MOV (SP) .RO :SAVE RETURN ADDRESS. 
¢ 037602 012706 001100 MOV ASTACK, SP “RESET THE STACK POINTER. 
6626 037606 005004 CLR R4 “CLEAR THE FPS. 
7 037610 170104 LDFPS R4 
8 037612 000110 JMP (RO) : RETURN. 
A&B 
6631 
6632 -SBTTL SPECIAL MESSAGES 
6633 037614 124 122 101 C12 ‘TRAPPED AT:'<TAB><TAB> 
6634 037632 105 130 120 "EXPECTED TRAP AT: '<TAB> 
6635 037655 107 117 124 C1Z ‘GOT RO:'<T 
037667 105 130 120 1Z ‘EXPECTED RO: '<TAB> 
6637 037705 107 117 124 MSA C12 ‘GOT ACO:*<TAB><TAB> 
6638 037720 105 130 120 MSA6 C1Z ‘EXPECTED ACO: '<TAB><TAB> 
6639 037740 200 120 117 POWE ClZ <CRLF>*POWER FAILURE. PROGRAM RESTARTING. ‘<CRLF> 
6640 940005 011 000 STAB CI1Z <TAB> 
6641 7 040 040 000 SPACE ciz ° 
664 040012 101 103 040 MS1: -ASCIZ ‘AC _OPERAND: * <TAB><TAB> 
6643 0400 106 123 122 MS2: -ASCIZ ‘FSRC OPERAND: '<TAB><TAB> 
6644 040050 101 103 060 MS3: ASCIZ ‘ACO BEFORE EXECUTION: '<TAB> 
6645 040077 101 103 060 MS4: “ASCIZ ‘ACO AFTER EXECUTION: *<TAB> 
6646 040125 105 130 120 MSS: -ASCI2Z ‘ CTED RESULT: '<TAB> 
6647 040147 107 117 124 MS6: -ASCIZ ‘GOT RESULT: '<TAB><TAB> 
6648 040165 106 122 101 MS7: -ASCIZ2 ‘FRACTIONAL RESULT: '<TAB> 
6649 040211 111 116 124 MS10: .ASCIZ ‘INTEGER RESULT: <TAB> 
6650 04 33 105 130 120 MS11: .ASCIZ ‘EXPECTED FRACTION: '<TAB> 
6651 7 105 130 120 MSi2:  .ASCIZ ‘EXPECTED INTEGER: '<TAB> 
6652 040302 114 117 101 MS37: .ASCIZ ‘LOADED DATA: 
6653 040 122 105 101 MS40: .ASCIZ ‘READ DATA: ' 





— eae ae 
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SPECIAL MESSAGES 


‘EXPECTED DATA: ' 
6638 g Beas 192 101 ‘DATA IN (RO) FSRC: ' 
do ee at SOL MST: 
‘EXPECTED RESULT: 
6658 0¢04 0455 +00 130 MES TEST. 22, ESTING INTERRUPTS. '<CRLF> 
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ERROR MESSAGES 

6660 .SBTTL ERROR MESSAGES 

6661 049514 106 120 123 EM1:  .ASCIZ ‘FPS BAD AFTER CMPD (R),A.' 
04 546 101 1 060 EMG: "ASCIZ "ACO MODIFIED BY CMPD (R),A." 

— 04 106 120 123 -ASCII ‘FPS BAD AFTER CMPD.'<CRLF> 

6667 040 050 102 12 a "ASCIZ ‘(BUT ENBT) STATE 225 WENT TO 475 INSTEAD OF 075.° 

_ 040707 = 106 120128 "ASCII. "FPS BAD AFTER CMPD. '<CRLF> 

6669 040735 050 102 we "ASCIZ ‘(BUT ENBT) STATE 225 WENT TO 075 INSTEAD OF 475.° 
041014 106 120 123 "ASCII «‘FPS BAD AFTER CMPD. '<CRLF> 

6671 041040 050 102 125 = "ASCIZ ‘(BUT ENBT) STATE 035 WENT TO 075 INSTEAD OF 475.° 
021154 106 120 123 -ASCII ‘FPS BAD AFTER CMPD. '*<CRLF> 

6675 041145 050 102 125 _ "ASCIZ ‘(BUT ENBT) STATE 035 WENT TO 475 INSTEAD OF 075." 
041 ; 106 120 123 : .ASCII ‘FPS BAD AFTER CMPD. '<CRLF> 

6675 041 3 050 102 125 "ASCIZ ‘(BUT ENBT Y8) STATE 777 SHOULD HAVE GONE TO 007." 
041333 106 120 123 .ASCII ‘FPS BAD AFTER CMPD. '*<CRLF> 

6677 041557 050 102 125 SCIZ ‘(BUT ENBT Y8) STATE 777 SHOULD HAVE GONE TO 40S.° 
041440 106 120 123 CI] ‘FPS BAD AFTER CMPD. *<CRLF> 

6679 041464 050 102 125 C12 ‘(BUT NBIT ZBIT) STATE 456 SHOULD HAVE GONE TO 010." 
041547 106 120 123 CI] ‘'FPS BAD AFTER CMPD  " <CRLE> +e 

6681 041575 050 102 125 C12 ‘(BUT NBIT ZBIT) STATE 456 SHOULD HAVE GONE TO 110.° 
041656 106 120 123 I "FPS BAD AFTER CMPD. '<CRLF> 

6683 041702 104 111 104 7 /DIDN'T TAKE THE PATH: STATE 456, TO 012, TO 363 TO 120./ 
041772 106 120 123 1 "FPS BAD AFTER CMPD. '<CRLF> 

6685 042016 050 102 125 7 ‘(BUT XNBT XZBT) STATE 363 WENT TO 140 INSTEAD OF 100." 
042104 106 120 123 I ‘FPS BAD AFTER CMPD. '<CRLF> 

6687 042150 050 102 125 2 ‘(BUT XNBT XZBT) STATE 363 WENT TO 100 INSTEAD OF 140.° 
042216 106 120 123 1 "FPS BAD AFTER CMPD. '<CRLF> 

6689 O4e 4g 104 111 104 7 /DIDN'T TAKE THE PATH: STATE 777. TO 407./ 
04231 104 111 126 2 "DIVD (R).A TRAPPED TO 244. FSRC=0 AND FID=1." 

6691 042370 106 120 123 7 ‘FPS BAD AFTER DIVD (R).A.' 

6692 04 422 106 105 103 7 “FEC BAD AFTER DIVD (R),A.° 

6693 0424 104 111 126 7 /DIVD (R).A DIDN'T TRAP TO 244. FSRC=0 AND FID=0./ 

6694 042535 104 111 1 : 2 ‘DIVE (R).A FAILED.' 

6695 360 106 120 1 7 ‘FPS BAD AFTER DIVF (R).A." 
$2 612 104 111 126 I "DIVE (R),A FAILED. ' 

6700 04 634 050 102 125 7 ‘(BUT Y615 WENT TO STATE 006 INSTEAD OF 206." 

710 104 111 126 I "DIVE (R),A FAILED. 
670 er 130 117 122 72 "MOR OF SIGN BITS FAILED STATE 470.' 
775 104 111 126 I "DIVE (R),A FAILED.' 

6704 043017 050 102 125 7 "(BUT Y615 WENT TO STATE 206 INSTEAD OF 006.' 

6705 042710 

6706 043073 
04 104 111 126 ASCII ‘DIVE (R).A FAILED." 


1 
da FPI1F FLTG PNT PRT B MACRO M1113 20-OCT-81 08:27 PAGE $544 SEQUENCE 149 

















MESSAGES 
6707 043115 124 122 125 .ASCIZ ‘TRUNCATION ERROR. FT=1.' 
6708 45 EM31: 
45 104 111 126 -ASCII "DIVE (R),A FAILED. ' 
6709 67 122 117 125 “ASCIZ "ROUND ERROR. FT=0.' 
6710 12 1 111 126 EM33:  .ASCIZ ‘DIVD (R),A FAILED." 
ori} 04 33 106 120 123 ENS: ASCIZ ‘FPS BAD AFTER DIVD (R),A.' 
04 67 104 111 126 -ASCII "DIVD (R).A FAILED. '<CRLF> 
6716 04 1 124 122 125 _ "ASCIZ ‘TRUNCATION ERROR. FT=1.° 
04 34 104 111 126 -ASCII "DIVD (R),A FAILED. '<CRLF> 
6718 04 122 117 125 “ASCIZ 'R ERROR. FT=0.' 
671 04 10 11 125 114 €EM37: .ASCIZ ‘MULF (R),A FAILED.’ 
6723 33 106 120 123 —M40: .ASCIZ ‘FPS BAD AFTER MULF (R),A.' 
6724 043465 EM41: 
043465 115 125 114 .ASCII ‘MULF (R),A FAILED. '<CRLF> 
6725 043510 123 111 107 "ASCIZ. °SIGN BIT BAD STATE 511.° 
6726 043540 EM42: 
04 340 115 125 114 .ASCII "MULF (R).A FAILED. *<CRLF> 
6727 04356 116 117 122 “ASCII NORMAL IZATION FAIL D. *<CRLF> 
6728 043611 050 102 12 "ASCIZ ‘(BUT Y62) STATE WENT TO 044 INSTEAD OF 444." 
6729 043671 EM43: 
043671 115 125 114 -ASCII ‘"MULF (R),A FAILED. '<CRLF> 
6730 043714 116 117 122 “ASCII "NORMALIZATION FAILED. "<CRLF> 
6731 043742 050 102 125 “ASCIZ. "(BUT Y62) STATE WENT TO 444 INSTEAD OF 044." 
6732 044022 EM44: 
0440¢¢ 115 125 114 -ASCII ‘“MULF (R),A FAILED. *<CRLF> 
6733 04404 122 117 125 “ASCIZ "ROUND ERROR. FT=0.° 
6734 044070 EMGS: 
04407 115 125 114 -ASCII ‘MULF (R),A FAILED. '<CRLF> 
6735 044113 124 122 125 “ASCIZ "TRUNCATION ERROR. FT=1.° 
36 04414 106 120 123 "ASCIZ ‘FPS BAD AFTER MULD (R),A.° 
6740 044175 115 125 114 "ASCIZ ‘“MULD (R),A FAILED." 
$4255 115 125 114 -ASCII "MULD (R).A FAILED. '<CRLF> 
6742 0442463 102 101 104 “ASCII ° ANT USED IN THE MUL ALGORITHM." 
6743 044312 200 125 123 "ASCIZ <CRLF>*USED 24 INSTEAD OF 56 STATE 020.° 
6744 044354 EM59 
044 354 115 125 114 .ASCII "MULD (R).A FAILED. '<CRLF> 
6745 044377 124 122 125 im “ASCIZ ‘TRUNCATION ERROR. FT=1.° 
044427 115 125 114 .ASCII ‘"MULD (R).A FAILED. '<CRLF> 
6747 0444 122 117 125 “ASCIZ "ROUND ERROR. FT=0.° 
6748 04447 EMS2: 
044475 115 125 114 .ASCII "MULD (R).A FAILED. '<CRLF> 
6749 044520 102 101 104 “ASCIZ "BAD CONSTANT USED IN ROUNDING, FT=0.° 
6750 04456 106 120 123 €M111: _ASCIZ ‘FPS BAD AFTER MULF (R).A. EXPECTED OVERFLOW." 
6751 044 2 106 120 123 Emit "ASCIZ “FPS BAD AFTER MULF (R).A. EXPECTED UNDERFLOW.° 
0447 115 125 114 .ASCII ‘“MULF (R).A FAILED. '<CRLF> 
6753 04474 105 130 120 "ASCIZ ‘EXPECTING OVERFLOW, FIV=0.° 
54 044776 EM114 
4776 115 125 114 .ASCII "MULF (R).A FAILED. '<CRLF> 
6755 5021 105 130 120 "ASCIZ “EXPECTING UNDERFLOW, FIU=0.' 
56 5 115 125 114 €M115: _ASCIZ ‘"MULF (R),A TRAPPED TO 244 ON OVERFLOW. FiIVv=0.' 
675 045133 115 125 114 EM "ASCIZ 'MULF (R).A TRAPPED TO 244 ON UNDERFLOW. Flu=0." 


a 
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ERROR MESSAGE 








SSAGES 
S312 S135 “ASCII (MULE (R) A TRAPPED TO 244 ON UNDERELOW. F1U=0, | | 
6765 045 20 050 102 125 _— “ASCIZ ‘(BUT FIUS STATE 331 WENT TO 155 INSTEAD OF 115." | | 
g 35 115 125 114 .ASCII ‘MULF (RD «A A TRAPPED TO 244 ON UNDERFLOW. FIU=0.° 
6767 3426 050 102 125 _— "ASCIZ ‘(BUT FIUS STATE 137 WENT TO 155 INSTEAD OF 115.° 
55 115 125 114 -ASCII ‘"MULF (R) cA TRAPPED TO 244 ON OVERFLOW. FIv=0.' 
67 9 04556 050 102 125 "ASCIZ ‘(BUT FIV) STATE 333 WENT TO 136 INSTEAD OF 116.° 
04564 115 125 114 SC11 'MULF (R)-A_ TRAPPED TO 244 ON OVERFLOW. FIV=0.° 
6771 045720 050 192 125 ASCIZ ‘(BUT Fivs. STATE 133 WENT TO 136 INSTEAD OF 116.' 
677¢ 106 12 123 ASCIZ ‘FPS BAD AFTER MULD (R),A. EXPECTING OVERFLOW. ' 
6773 ; 106 120 123 "ASCIZ ‘FPS BAD AFTER MULD (R).A. EXPECTING UNDERFLOW. ° 
ore 115 125 114 CII ‘“MULD (R).A FAILED. *<CRLF> 
6775 046160 105 130 120 C12 ‘EXPECTING OVERFLOW, FIV=0.' 
6213 115 125 114 C11 'MULD (R),A FAILED. "<CRLF> 
6777 105 130 120 C12 BECTING. UNDERFLOW, FIU=0.' 
6778 ? 115 125 114 ASCIZ ‘MULD (R).A TRAPPED TO 244 ON OVERFLOW. FIVv=0.° 
6779 50 115 125 114 C12 ‘“MULD (R).A TRAPPED TO 244 ON UNDERFLOW. FIU=0.° 
beee57 115 125 114 CI] "MULF (R),A T D TO 244 ON UNDERFLOW. F1U=0.° 
6787 046505 050 102 125 2 "(BUT FIUS STATE 331 WENT TO 155 INSTEAD OF 115.° 
046565 115 125 114 I SULD | (RA FAILED," <CRLF> 
6789 046610 105 130 120 I TING UND FIu=0.°" 
6790 046643 200 050 102 Z <EALES* (BUT uM wat? 115 WENT TO 424 INSTEAD OF 425.' 
046723 115 125 114 I "MULF (R).A TRAPPED TO 244 ON UNDERFLOW. F1U=0." 
6792 047001 050 102 125 2 ‘(BUT Fius- STATE 37" DENT TO 155 INSTEAD OF 115.° 
047061 115 125 114 I TRAPPED TO 244 ON OVERFLOW. FIV= 0. 
6794 047136 050 102 125 Z Buy hws. STATE 333 WENT TO 136 INSTEAD OF 116." 
047216 115 125 114 I ‘*MULD (R.A FAILED. "<CRLF> 
6796 047261 105 130 120 I CTING OV FIV=0.' 
6797 047 q3 200 050 102 7 <CRLF>*(BUT FD) STATE 116 WENT TO 424 INSTEAD OF 425." 
047353 115 125 114 I ness TO 244 ON OVERFLOW. FIV=0, ° 
6799 047430 050 102 125 ? “Bur ies STATE | 133 WENT TO 136 INSTEAD OF 
6800 047510 106 105 103 7 ‘FEC BAD AFT F (R).A. OMPECTANG 
6801 047576 106 105 103 72 ‘FEC BAD AFTER MULE (R) “A. EXPECTING UNDERFLOW, F 
6802 04456 11 
680 044642 12 
6804 047665 
047665 115 125 114 .ASCII ‘MULF (R),A FAILED. "<CRLF> 
6805 047710 105 130 120 "ASCIZ “EXPECTING OVERFLOW, FIV=1.° 
6806 7743 EM144 
774 115 125 114 -ASCII ‘"MULF (R).A FAILED. '<CRLF> 
6807 47766 105 130 120 rae "ASCIZ. “EXPECTING UNDERFLOW, FIU=1.° 
5 3 115 125 114 .ASCII "MULF (R),A FAILED. TO TRAP_TO 244 ON UNDERFLOW. FIU=1. 
6815 30107 050 102 125 — "ASCIZ ‘(BUT FIUS STATE 331 WENT TO 115 INSTEAD OF 155.° 
050167 115 125 114 ASCII ‘"MULF (R),A FAILED TO TRAP_TO 244 ON UNDERFLOW. FIU=1.' 
6817 050254 050 102 125 "ASCIZ. ‘(BUT FIUS STATE 137 WENT TO 115 INSTEAD OF 155.° 
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6818 0503 —M147: 
0503 115 125 114 .ASCII ‘MULF (R),A FAILED TO TRAP TO 244 ON OVERFLOW. FIV=1.' 
6819 30 0 050 102 125 _— "ASCIZ. ‘(BUT FIVS STATE 333 WENT TO 116 INSTEAD OF 136.° 
050800 115 125 114 -ASCII "MULF (R).A FAILED TO TRAP TO 244 ON OVERFLOW. FIV=1." 
1 050564 050 102 125 "ASCIZ ‘(BUT FIVS STATE 133 WENT TO 116 INSTEAD OF A36.' 
: : 106 10 103 €M151: .ASCIZ ‘FEC BAD AFTER MULD (R),A. EXPECTING OVERFLOW, FEC=10.' 
50732 106 105 103 ENI5¢: sASCIZ ‘FEC BAD AFTER MULD (R).A. EXPECTING UNDERFLOW, FEC=12.° 
4 046000 EM153=EM1 
6825 046056 EM154=EM124 
6 951021 M155: 
051021 115 125 114 .ASCII '"MULD (R),A FAILED. *<CRLF> 
7 051044 105 130 120 "ASCIZ "EXPECTING OVERFLOW, FIV=1.' 
8 051077 EM156 
051077 115 125 114 -ASCII ‘"MULD (R),A FAILED. '<CRLF> 
6829 0511 2 105 130 120 _— “ASCIZ “EXPECTING UNDERFLOW, FIU=1.' 
051156 115 125 114 _ASCII "MULD (R),A FAILED TO TRAP TO 244 ON UNDERFLOW. FIU=1.° 
6837 05124 050 102 125 “ASCIZ ‘(BUT FIUS STATE 331 WENT TO 115 INSTEAD OF 155." 
6838 051323 EM160 
051323 115 125 114 -ASCII ‘“MULD (R),A FAILED. '<CRLF> 
6839 051346 105 130 120 "ASCII “EXPECTING UNDERFLOW, FIU=1.° 
6840 051401 200 050 102 setiiiag = SCIZ <CRLF>"(BUT FD) STATE 155 WENT TO 426 INSTEAD OF 427.° 
051461 115 125 114 .ASCII ‘MULD (R).A FAILED TO TRAP TO 244 ON UNDERFLOW. FlU=1.° 
6842 051546 050 102 125 "ASCIZ "(BUT FIUS STATE 137 WENT TO 115 INSTEAD OF 155.° 
6843 051626 EM162 
051626 115 125 114 .ASCII ‘"MULD (R).A FAILED TO TRAP TO 244 ON OVERFLOW. FIV=1.' 
6844 051712 050 102 125 “ASC1Z ‘(BUT FIV) STATE 333 WENT TO 116 INSTEAD OF 136." 
6845 051772 EM163 
051772 115 125 114 -ASCII ‘"MULD (R),A FAILED. "<CRLF> 
6846 052015 105 130 120 “ASCII "EXPECTING OVE v=1.' 
6847 05 047 200 050 102 ial "ASCIZ <CRLF>"(BUT FD) STATE 700 WENT TO 426 INSTEAD OF 427.° 
052127 115 125 114 .ASCII ‘“MULD (R),A FAILED TO TRAP TO 244 ON OVERFLOW. FIV=1." 
6849 052213 050 102 125 "ASCIZ ‘(BUT FIVS STATE 133 WENT TO 116 INSTEAD OF 136.° 
6850 052273 106 120 123 EMSS: .ASCIZ § BAD AFTER MODF (R).A.' 
6851 052325 115 117 104 €M53: .ASCIZ ‘MODE (R),A FRACTION BAD.‘ 
6852 052356 115 117 104 £€M54: .ASCIZ ‘MODF (R).A INTEGER BAD.' 
685 052406 EMS6: 
05 406 115 117 104 .ASCII ‘"MODF (R).A FRACTION BAD. '<CRLF> 
6860 052437 101 103 Ou0 "ASC1Z "ACO DID NOT GET 0 IN STATE 424." 
6861 052477 EMS7 
05 477 115 117 104 .ASCI1 ‘MODF (R).A INTEGER BAD. *<CRLF> 
6862 52527 101 103 061 "ASCIZ "AC? DID NOT GET 0 IN STATE 142.' 
686 052567 EM60: 
052567 115 117 104 .ASCII ‘"MODF (R).A INTEGER BAD. '<CRLF> 
6864 05 617 101 103 061 _ "ASCIZ "AC1 DID NOT GET THE INTEGER IN STATE 134." 
05 671 115 117 104 .ASCII ‘MODF (R),A FRACTION BAD. '<CRLF> 
6866 52722 101 040 102 "ASCII °A BAD CONSTANT WAS USED (NOT 24) IN STATE 046.' 
686 05 200 117 122 _ "ASCIZ <CRLF>"OR (BUT NBIT) STATE 525 WENT TO 050 INSTEAD OF 150.' 
7 05 5 115 117 104 .ASCII ‘MODF (R),A FRACTION BAD. '<CRLF> 
6869 053116 101 940 102 “ASCII ‘*A BAD CONSTANT WAS USED (NOT 24) IN STATE 046.' 
6870 053174 200 117 12 —_ "ASCIZ <CRLF>"OR (BUT NBIT) STATE 525 WENT TO 150 INSTEAD OF 050." 
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053261 115 117 104 .ASCII ‘“MODF (R),A FRACTION BAD. '<CRLF> 
687 05 J 050 102 125 — "ASCIZ ‘(BUT ZBTS STATE 532 WENT TO 102 INSTEAD OF 122.° 
05 7 115 117 104 -ASCII "MODF (R).A FRACTION BAD. '<CRLF> 
6874 09 423 050 102 125 _ "ASCIZ ‘(BUT ENBT EZBT) STATE 041 WENT TO 046 INSTEAD OF 246." 
03 511 115 117 104 -ASCII ‘“MODF (R),A FRACTION BAD. '<CRLF> 
687 05 542 050 102 125 amis "ASCIZ ‘(BUT FT) STATE 126 SHOULD HAVE GONE TO 133. FT=0.° 
4 115 117 104 .ASCII 'MODF (R),A FRACTION BAD. '<CRLF> 
6878 05 35 123 111 107 an “ASC1Z ‘SIGN BIT BAD.' 
053673 115 117 104 .ASCII ‘MODF (R),A INTEGER BAD. '<CRLF> 
6880 053 23 123 111 107 "ASCIZ. ‘SIGN BIT BAD IN STATE 733.° 
6881 0537 115 117 104 €M70: .ASCIZ ‘MODD (R),A FRACTION BAD. ' 
05400 115 117 104 £EM71:  .ASCIZ ‘MODD (R),A INTEGER BAD.' 
054037 106 120 123 EN?e: "ASCIZ "FPS BAD AFTER MODD (R),A.’ 
054037 EM73=EM72 
6891 054071 M74: 
: 071 115 117 104 .ASCI1 '"MODD (R),A INTEGER BAD. '<CRLF> 
6892 054121 050 102 125 nities "ASCIZ ‘<{BUT FD) STATE 231 WENT TO 142 INSTEAD OF 143.° 
054200 115 117 104 .ASCII "MODD (R).A FRACTION BAD. *<CRLF> 
6894 054231 101 1063 060 “ASCIZ ‘ACO GETS 0 IN STATE 425 FAILED.' 
6895 054271 EM76: 
05 115 117 104 .ASCII ‘MODD (R),A INTEGER BAD. '<CRLF> 
6896 054321 101 103 061 "ASCIZ "ACT GETS O IN STATE 143 FAILED.’ 
6897 054361 EM77 
05 115 117 104 .ASCII ‘"MODD (R).A FRACTION BAD. *<CRLF> 
6898 054412 050 102 125 “ASCIZ ‘(BUT FD) STATE 526 WENT TO 134 INSTEAD OF 135." 
6899 054471 EM100 
05 115 117 104 .ASCI] ‘MODD (R),A INTEGER BAD. '<CRLF> 
6900 054521 123 111 107 “ASCIZ ‘SIGN BIT BAD IN STATE 526." 
6901 0545 EM101 
054 115 117 104 .ASCI1 "MODD (R).A FRACTION BAD. '<CRLF> 
6902 054605 101 040 102 "ASCII ‘A BAD CONSTANT WAS USED (NOT 56) IN STATE 046," 
0 200 117 122 "ASCIZ <CRLF>"OR (BUT NBIT) STATE 525 WENT TO 050 INSTEAD OF 15).° 
6904 054750 EM102 
0 115 117 104 .ASCII ‘"MODD (R).A FRACTION BAD. '<CRLF> 
6905 05500 101 040 102 “ASCII ‘A TANT WAS USED (NOT 56) IN STATE 046," 
6906 05505 200 117 122 "ASCIZ <CRLF>*OR (BUT NBIT) STATE 525 WENT TO 150 INSTEAD OF 050." 
6907 055144 EM103 
055144 115 117 104 .ASCII ‘MODD (R),A FRACTION BAD. '<CRLF> 
6908 055175 050 102 125 "ASCIZ ‘(BUT ZBIT) STATE 532 WENT TO 122 INSTEAD OF 102.° 
6909 055256 EM104 
55256 115 117 104 .ASCII ‘“MODD (R).A INTEGER BAD. '<CRLF> 
6910 055 123 105 124 “ASCII ‘SET INTEGER IN AC1 FAILED," 
11 055340 200 17 122 "ASCIZ <CRLF>"OR (BUT FD) STATE 733 WENT TO 156 INSTEAD OF 157." 
6912 055423 EM105 
55423 115 117 104 .ASCII ‘MODD (R),A INTEGER BAD. '<CRLF> 
6913 0554 3 050 102 125 — "ASCIZ ‘(BUT FD) STATE 122 WENT TO 424 INSTEAD OF 425." 
33539 115 117 104 -ASCII ‘MODD (R),A INTEGER BAD. '<CRLF> 
6915 055 050 102 125 "ASCIZ ‘(BUT FD) STATE 246 WENT TO 126 INSTEAD OF 127." 
6916 055641 EM107 
055641 115 117 104 -ASCII ‘MODD (R),A INTEGER BAD. '<CRLF> 
6917 055671 050 102 125 "ASCIZ ‘(BUT FD) STATE 446 WENT TO 126 INSTEAD OF 127.° 
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6918 055750 —M110: 
055750 115 117 104 .ASCI] '"MCDD (R),A A FRACTION BAD BAD. '<CR 
6919 056001 050 102 125 — "ASCIZ ‘(BUT FT) STATE 127 WENT TO 3 “ INSTEAD OF 113.° 
osé06d 115 117 104 _ASCII /MODF (R).A FRACTION BAD. RESULT OVER OR UNDER FLOW. / 
6935 5614 000 "BYTE 0 
69 056144 EM166: 
44 115 117 104 .ASCI1 /MODF (R).A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
6935 0 3 000 "BYTE 0 
6936 0 EM167: 
056227 106 120 123 .ASCI1 /FPS BAD AFTER MODF (R),A./ 
6937 056260 000 "BYTE 0 
6938 056261 EM170 
056261 106 105 103 .ASCII /FEC BAD AFTER MODF (R),A 
6939 056 le 105 130 120 "ASCIZ "EXPECTING UNDERFLOW, rEez12. ' 
6940 056 EM171 
056347 115 117 104 .ASCII /MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
6941 056431 200 101 103 "ASCIZ <CRLF>'AC) GETS 0 IN STATE 126 FAILED." 
6942 056472 EM172 
05647¢ 106 105 103 .ASCII /FEC BAD AFTER MODF (R).A./ 
6943 05652 105 130 120 “ASCIZ “EXPECTING OVERFLOW, FEC=10.° 
6944 056557 EM173 
05655 115 117 104 .ASCII /MODF (R).A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
6945 056641 200 050 102 — "ASCIZ <CRLF>' (BUT FIV FD) STATE 520 WENT TO 142 INSTEAD OF 162." 
0 115 117 104 -ASCI] /MODF (R),A INTEGER BAD. RESULT 0 OVER OR UNDER FLOW./ 
6947 0570 ; 200 050 102 ines? C12. <CRLF>*(BUT FIV FD) STATE WENT TO 162 INSTEAD OF 142." 
057 115 117 104 CII /MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
6949 057155 200 123 111 -ASCIZ CCRLE>*S1@N BAD IN STATE 517.' 
6950 057205 EM176 
pr 057 05 115 117 104 .ASCII /MODD (R).A FRACTION BAD. RESULT OVER OR UNDER FLOW./ 
952 057271 120 117 127 €M177: .ASCIZ {POWER MONITOR BIT FOUND SET: 
6953 057325 M200: 
057325 106 120 123 .ASCII /FPS BAD AFTER MODD (R),A./ 
6954 057356 000 -BYTE 0 
6955 057357 EM201 
057357 106 105 103 .ASCII /FEC BAD AFTER MODD (R).A 
6956 057410 200 105 130 “ASCIZ <CRLF>" EXPECTING PR OERFLOU. FEC=12.° 
6957 057446 EM202 
057446 115 117 104 -ASCII /MODD (R).A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
6958 0575 200 050 102 "ASCIZ <CRLF>*(BUT FD) STATE 241 WENT TO 126 INSTEAD OF 127." 
6959 057610 EM203 
115 117 ms -ASCII1 /MODD (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
Be 9 a 200 050 102 — "ASCIZ <CRLF>* (BUT FD) STATE 047 WENT TO 126 INSTEAD OF 127.° 
tes 106 105 103 .ASCII /FEC BAD AFTER MODD ( 
200 105 130 aie "ASCIZ <CRLF>° EXPECTING SO ERFLOW, “FEC=10. ' 
115 117 104 .ASCII /MODD (R).A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 
6964 200 050 102 nani "ASCIZ. <CRLF>' (BUT FIV FD) STATE WENT TO 162 INSTEAD OF 163.° 
115 117 104 .ASCI1 /MODD (R),A INTEGE RESULT OVER OR R FLOW./ 
200 050 102 "ASCIZ. <CRLF>' (BUT FIV Me 35 annie WENT TO 162 INSTEAD OF 143." 
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7061 060354 EM207: 
060554 101 104 104 -ASCIZ /ADDD (R),A PRODUCED A BAD RESULT./ 
7062 16 EM210: 
124 110 105 .ASCIZ /THE FPS WAS BAD AFTER ADDD (R),A./ 
7063 101 104 104 €M211: ASCII ‘ADDD (R),A FAILED IN THE ROUND\TRUNK FLOWS. ° 
7064 060533 200 127 105 "ASCII <CRLF>"WENT FROM STATE 663 TO 313,'<CRLF> 
7065 5 0 111 116 123 on SCIZ ‘INSTEAD OF FROM 663 TO 353.° 
4 101 104 104 -ASCII ‘“ADDD (R),A FAILED IN THE ROUND\TRUNK FLOWS. ' 
9606 200 124 110 "ASCII <CRLF>'THE FPS WAS BAD. '<CRLF> 
060 4 104 111 104 "ASCII "DID NOT TAKE THE PATH: '<CRLF> 
060750 106 122 117 "ASCIZ /FROM STATE 664, TO 505, TO 251./ 
7091 061010 EM213: 
061019 101 104 104 .ASCII ‘ADDD (R),A FAILED IN THE ROUND\TRUNK FLOWS. 
061 200 124 110 "ASCII <CRLF>'THE FPS WAS BAD. '<CRLF> 
061105 104 111 104 "ASCII ‘DID NOT TAKE THE PATH: '<CRLF> 
061134 106 122 117 "ASCIZ /FROM STATE 664, TO 505, TO 253./ 
7092 061174 EM214: 
061174 101 104 104 -ASCII ‘ADDD (R).A FAILED IN THE RCUND\TRUNK FLOWS.‘ 
061247 200 124 110 "ASCII <CRiF>"THE FPS WAS BAD. *<CRLF> 
061271 104 111 104 "ASCII "DID NOT TAKE THE PATH: *<CRLF> 
061320 106 122 117 “ASCIZ /FROM STATE 664, TO 705, TO 735./ 
7093 061360 EM215: 
061 101 104 104 .ASCII "ADDD (R),A FAILED IN THE ROUND\TRUNK FLOWS.’ 
0614 200 124 110 “ASCII <CRLF>'THE FPS WAS BAD. '<CRLF> 
061455 104 111 104 "ASCII ‘DID NOT TAKE THE PATH: °<CRLF> 
061504 106 122 117 “ASCIZ /FROM STATE 664, TO 705, TO 737./ 
7094 061544 124 110 105 €M216: .ASCII ‘THE (BUT FIU FORK IN THE OVER\UNDER FLOWS FAILED. FIU =1.° 
7095 061635 200 127 105 “ASCII <CRLF>"WENT FROM STATE 1 TO 115. °<CRLF> 
7096 061672 111 116 123 "ASCIZ ‘INSTEAD OF FROM 331 TO 155.° 
7097 1726 101 104 104 EM217: _.ASCIZ ‘ADDD (R)A TRAPPED TO 244,. FID=1.° 
7098 061770 EM220: 
061770 101 104 104 .ASCII /ADDD (R),A TRAPPED TO 244./<CRLF> 
23 124 110 105 “ASCII ‘THE RESULT WAS AN OVERFLOW CONDITION BUT FIV= 0.° 
103 200 050 102 "ASCIZ <CRLF>/(BUT FIV) STATE 133 WENT TO 136 INSTEAD OF 116./ 
164 111 116 123 “ASCIZ /INSTEAD OF FROM 133 TO 116./ 
7099 220 EM221: 
062220 101 104 104 ASCII FAILED TO TRAP TO 244./<CRLF> 
62 124 110 105 “ASCII VERFLOW CONDITION AND F1V=1."<CRLF> 
1 124 110 105 “ASCII ORK FAILED./<CRLF> 
374 127 105 116 ASCII ; TO 116,/<CRLF> 
430 111 116 123 “ASCIZ F TO 136./ 
7100 062464 EM222: 
464 101 104 104 _ASCI1 /ADDD (R).A TRAPPED TO 264./<CRLF> 
517 124 110 105 "ASCI1 "THE RESULT WAS AN UNDERFLOW CONDITION BUT FlU= 0.' 
062600 200 050 102 "ASCIZ <CRLF>/(BUT FIU) STATE 331 WENT TO 155 INSTEAD OF 115./ 
661 111 116 12 “ASCIZ /INSTEAD OF FROM 331 TO 115./ 
7101 062715 EM223: 
715 101 104 104 .ASCII /ADDD (R).A FAILED TO TRAP TO 244./<CRLF> 
757 124 110 105 "ASCII ‘THE RESULT WAS A UNDERFLOW CONDITION AND FIU=1.°<CRLF> 
37 124 110 105 ASCII (BUT FIU) FORK FAILED /<CRLF> 
063072 127 105 116 “ASCII /WENT FROM STATE 31 TO 115,/<CRLF> 
126 111 116 123 "ASCIZ /INSTEAD OF FROM 331 TO 155./ 
7102 0631 EM224: 
31 101 104 104 ASCII (R).A TRAPPED TO 244./<CRLF> 
06321 124 110 105 “ASCII ‘THE RESULT WAS AN UNDERF L Ow CONDITION BUT Flu= 0." 
063276 200 050 102 "ASCIZ <CRLF>/(BUT FIU) STATE 137 WENT TO 155 INSTEAD OF 115./ 
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063357 111 116 123 .ASCIZ /INSTEAD OF FROM 137 TO 115./ 
7103 06341 EM225 
1 101 104 104 .ASCII /ADDD (R),A FAILED TO TRAP TO 244./<CRLF> 
3 124 110 105 "ASCII ‘THE RESULT WAS A UNDERFLOW CONDITION AND FIU=1.°<CRLF> 
535 124 110 105 "ASCII /THE (BUT FIU) FORK FAILED./<CRLF> 
06 570 127 105 116 "ASCII /WENT FROM STATE 137 TO 115,/<CRLF> 
cant 111 116 12 — "ASCIZ /INSTEAD OF FROM 137 TO 155./ 
06 101 104 104 _ASCII /ADDD (R).A TRAPPED TO 244,/ 
06 12 200 192 105 "ASCII <CRLF>*BECAUSE OF AN EXPECTED OVERFLOW CONDITION, '<CRLF> 
7 102 12 124 "ASC12 ‘BUT THE FEC WAS BAD.’ 
7105 06401 EM227: 
06401 101 104 104 .ASCII /ADDD (R),A TRAPPED TO 244,/ 
06404 200 192 105 "ASCII <CRLF>*BECAUSE OF AN EXPECTED OVERFLOW CONDITION, °<CRLF> 
121 102 12 124 "ASCIZ “BUT THE FPS WAS BAD.’ 
7106 064146 EM230: 
064146 101 104 104 .ASCII /ADDD (R).A TRAPPED TO 244,/ 
064 200 192 105 "ASCII <CRLF>*BECAUSE OF AN EXPECTED UNDERFLOW CONDITION, '<CRLF> 
064255 102 12 124 "ASCIZ ‘BUT THE FEC WAS BAD.’ 
7107 064 3 EM231: 
064 502 101 104 104 .ASCII /ADDD (R).A TRAPPED TO 244,/ 
0643 200 192 105 "ASCII <CRLF>*BECAUSE OF AN EXPECTED UNDERFLOW CONDITION, *<CRLF> 
064411 102 12 124 ASCIZ ‘BUT THE FPS WAS BAD. 
7108 060416 EM232=EM21 
7109 
7110 
7111 
7116 
7120 
re? 
7137 
EM233: 
114 104 103 tit .ASCIZ \LDCFD (R)+,A RESULT INCORRECT. \ 
064475 122 060 040 .ASCII \RO BAD AFTER LDCFD (R)+.A.\ 
527 200 101 040 a “ASCIZ <CRLF>°A BAD CONSTANT WAS USED.° 
064561 120 103 040 tia .ASCIZ \PC BAD AFTER LDCFD #NUM.A. TRAP TO 4.\ 
7 120 103 040 pire -ASCIZ \PC BAD AFTER LDCFD #NUM.A. \ 
122 60 040 -ASCII \RO BAD AFTER LDCDF (R)+.A.\ 
064 200 101 040 “aiiin "ASCIZ <CRLF>'A BAD CONSTANT WAS USED." 
O64 106 120 123 nee .ASCIZ \FPS BAD AFTER LDCFD (R)+,A.\ 
be550 114 104 103 .ASCII \LDCFD (R)+,A FAILED. \ 
06 200 124 110 “ASCII <CRLF>*THE FD ' 
0650 102 111 124 "ASCII ‘BIT WAS NOT COMPLIMENTED ° 
06 111 116 040 oe * SCI1Z. ‘IN STATE 017.° 
106 120 123 aie .ASCIZ \FPS BAD AFTER LDCDF (R)+.A.\ 
114 104 103 -ASCII \LDCDF (R)+,A FAILED. \ 
06 200 124 110 “ASCII. <CRLF>'THE FD ' 
102 111 124 “ASCII ‘BIT WAS NOT COMPLIMENTED ' 
06 111 116 040 “ASCIZ. “IN STATE 017. 
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7147 063307 
5244 


06 
71 
714 5303 
7150 065 
7151 065 
1126 5565 
715 5421 
065453 


1 
7156 065506 
ms 
7161 
7162 065577 
5577 
7163 065663 
res B88 
rs $a 
7166 Oset 
7167 13 
13 
7168 066 ; 
066 
7169 06637 
7170 06646 


7171 550 
7172 $2 
, Cee 


ai 067098 


7176 ates 


2 2 
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AXAPAW 
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104 
104 
104 
104 
104 
104 
104 
104 
111 
125 
117 
117 
117 
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-ASCIZ 
ASCIZ 
eASCIZ 
eASCIZ 
eASCIZ 
-ASCIZ 
-ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
-ASCIZ 
eASCIZ 


-ASCiI 
-BYTE 


08:27 


PAGE 4546 SEQUENCE 


\LDCDF (R)+,A RESULT INCORRECT. \ 


"LDCFD (R),A 
A .' 


*] 





FAILED.’ 
$16 GN FAILED ° 


N STATE 
Ra fee pa 3 FPP TRAP TO 244." 
XPECTED CPU 


TRAP TO 4.° 


"UNEXPECTED CPU TRAP TO 10.° 
"CORRECT FLOWS INTERRUPT TEST MODULE FAILED TO INTERKUPT. ° 


/ADDD 
/ADDD 
/ADDD 
/ADDD 
/ADDD 
/ADDD 
/ADDD 
/ADDD 
/DIVD 
/MULD 
/MODD 


"CORRECT FLOWS INTERRUPT TES? MODULE CAUSED UNEXPECTED INTERRUPT.° 


/MODD 
0 


AcCO,ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
(RO)+,ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
@(RO)+,ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
~(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
@-(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS. / 
NUM(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
@NUM(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 
(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 


(R),A INTEGER BAD. RESULT OVER OR UNDER FLOW. / 


156 
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7177 
71 


71 71 

sri 
7176 

71 

71 

71 

7185 

71 

71 

71 

71 

71 

7191 

ays 

7193 

7194 067237 


oo 


~™~ 
SRSRES 


NNNNNNN 
i a ee i 


MEW $0 OONOULSWN © 


8 067447 
7510 


ROF 


GRRPRRARRRSS RRO 


i i i be i i i i, i | 
ee ee ee 


S 88 
=2 


SSSSSPPPPSSSOSPPSSSSSSSSSSZELEF 


SRESLSSSRSSRESRSSRSSSSRESRES 


eee om cee eed weed eed eed ed eee ee eed etd ed ot 3) 4 


SRS 


i | 


04 


— 
i=) 


~~“ 
NRRS 
&f-& 
Avvo 
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1 


040 


=k 
IO 


124 
136 
124 


124 
124 





-SBTTL 


DH1: 


-AS 
-ASCIZ 


DH116=DH 

DH117=DH 
DH120=DH 
DH121=DH 


ee lh ek eed & 


ASCII 


CiZ 


SEQUENCE 


ERROR DATA TABLE HEADERS 


* _TEST.*<TAB>*CALL AT PC. *<TAB>"ERROR AT PC. ‘<TAB> 
"GOT FPS. *<TAB>*EXPECTE 
* TEST. *<TAB>'CALL AT PC.'<TAB>"ERROR AT PC." 


* TEST.*<TAB>"PC OF CALL.*<TAB>*PC OF ERROR. *<TAB>'FEC.°<TAB>'FPS.° 


* TEST. *<TAB>'PC OF a <TAB>"PC OF ERROR. '<TAB> 
"GOT FEC. *<TAB>' EXPECTED F 
' TEST.'*<TAB>"PC OF CALL. *<TAB>"PC OF ERROR. '<TAB>'FPS.' 


* TEST.*<TAB>'PC OF CALL.‘<TAB>*PC OF ERROR. *<TAB> 
"GOT FEC."'GOT FPS." "EXPECTED FPS." 
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067447 =DH115 | 
| 
| 
cate ) 
15 
7447 115 
2467 15 
409 15 
067447 115 
rue 15 
7467 DH137=DH115 
7447 DH140=DH115 
7467 15 
7447 15 
067447 15 
067447 15 
7106 
067106 
067106 
06744 DH151=DH115 
067447 0H152=DH115 
067447 DH153=DH115 
067447 DH154=DH115 
067447 DH155=DH115 
067447 DH156=DH115 
71 DH157=DH1 
06744 DH160=DH115 
DH161=DH1 
DH162=DH1 
744 DH163=DH115 
DH164=DH1 
7106 DH53=DH1 
7106 DH54=DH1 
7106 DH55=DH1 
7106 DH96=DH 
7106 DH57=DH1 
71 DH60=DH1 
0671 DH61=DH1 
71 =DH1 
71 =DH1 
71 =DH1 
a ' DH65=DH1 
71 DH67=DH1 
71 DH70=DH1 
71 DH71= 
71 DH72=DH1 
71 DH73=DH1 
71 DH74=DH 
71 DH75=DH1 
71 DH76=DH1 
71 DH77=DH1 


71 DH100=DH1 
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ERROR DATA TABLE HEADERS 


7 39 
7 
7 
1 
5 
5 
067546 
10 
Aap. 
B 
14 
15 
19 
17 067607 
19 067707 
73 ; 067737 
: 
73 
7324 
7325 
7357 


Ww 
Oo 


070231 
70272 


736 070 32 


 ™ 
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124 


UT) 

ot ae e os 
et a ss DS I ds SS) —s hs ss st 
WU AWA 


=DH226 
nants 
DH232=DH227 
DH233: 
DH234: 


eASCIZ 


eASCII 
ASCIZ 


{| TESTi<TAB>iERR PC:<TAB>: CPU ERROR REGISTER: 


* TEST.*<TAB>'PC OF CALL.*<TAB>*PC OF 


ED F 
' TEST. *<TAB>'PC OF FALE <TAB> PC OF 


* a est. *<TAB>*PC OF CALL. "<TAB>'PC OF 
<TAB>'FPS.'<TAB>'FEC.° 


* TEST.°<TAB>*PC OF oaks ct Tt OF 


>*GOT A E 
'_TEST.*<TAB>'PC OF CALL.‘<TAB>'PC OF 
<TAB>'GOT FPS."<TAB>*EXPECTED FPS.' 


* TEST.*<TAB>*PC OF CALL.*<TAB>*PC OF 


*__TEST.'<TAB>"PC OF CALL.’<TAB>'PC OF 
<TAB>'GOT RO.'<TAB>*EXPECTED RO." 


TRAP. * 
ERROR. ° 


ERROR. * 


ERROR. * 


TRAP. * 
TRAP. * 


ERROR. * 
ERROR." 


SEQUENCE 


159 
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7 70360 
8 Hts 
0420 
a7pKke 
5 


05 
As 
054 





raat 070703 


040 
120 


120 
011 


070272 


040 
ie9 


O78 31 


040 
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DH245=DH233 
DH247: .AS 
DH250: .AS 
DH251=DH250 


DH252=DH2 
B95 =DH1 


DH 1 
DH266: .ASCIZ 


DH267=DH115 


* TEST.*<TAB>*PC OF CALL. *<TAB> 
"PC OF TRAP. *<TAB> 


* _TEST.°<TAB>"PC OF CALL. *<TAB> 
*PC OF F_ERROR. '<TAB>'GOT PC." 
<TAB>'EXPECTED PC.‘ 


 _TEST.*<TAB>'PC 4 CALL. *<TAB> 
"PC OF ERROR. *< 
"GOT FPS.*<TAB>' EXPECTED FPS.° 


" TEST.*<TAB>*PC OF CALL.*<TAB>*PC OF TRAP. '<TAB>'FEC." 
* TEST."<TAB>*PC OF CALL."<TAB>*PC OF TRAP.' 


* TEST."<TAB>*PC OF CALL.‘<TAB>'PC OF TRAP.° 
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CKFPBCO FP11F FLTG PNT 
DATA FORMAT SPECIFIERS 
7498 071164 DF 105=DF7 
7499 071164 DF 10G=DF 7 
7500 071164 DF 107=DF70 
7501 0711 DE110=DF70 
7502 071216 000 005 DF165: .BYTE  4,0.5,0,5,0,0,0,5,5,2,5 5.2.55 ceeded el ede Dels dered 
750 071216 DF 166=DF 165 
7504 071216 F167=DF 165 
7505 071216 DF 170=DF 165 
7506 071216 DF171=DF 165 
7507 071216 DF 17¢=DF 165 
7508 071216 DF 173=DF 165 
7509 071 16 DF 174=DF 165 
7510 71216 DF 175=DF 165 
7511 071250 004 000 005 DF 176: ‘BYTE «= 4&0. 5.0,.5..0.0,0.5 65 e305 05030505 0305050305 0503054543 
731¢ 071302 000 000 DF177: .BYTE 4,0,0 
751 071250 DF 200=DF 176 
7514 071250 DF201=DF 176 
7515 071250 OF g=DF 176 
516 71250 DF 203=DF 176 
751 071250 DF204=DF 176 
7518 071250 DF 205=DF 176 
7519 071250 DF 206=DF 176 
£320 071305 004 000 005 DF210: .BYTE 4-045-045-0450 
7521 071315 004 060 005 DF207: .BYTE 4.0,5.0.5 050503050555 e305 0565305050503 
75 071315 DF211=DF207 
7523 071341 004 000 005 OF le: 605550550055 5055 5505030505 eS de5o5o5 e305 050503 
7524 071341 DF213=DF212 
7525 071341 DF214=DF212 
6 071341 DF215=DF212 
7527 071315 DF216=DF 207 
7528 071371 004 000 005 DF217: .BYTE 4,0.5.0,5,0.0 
75 071315 DF 220=DF 207 
75 071315 DF 221=DF 207 
7531 071315 DF 222=DF 207 
75 071315 DF 223=DF 207 
753 071315 DF 224=DF 207 
7534 071315 DF 225=DF 207 
7535 071341 DF 226=DF 21 
7536 071341 OF 227=DF 21 
7537 071341 OF 230=DF 21 
7538 071341 DF DF21 
7539 071341 OF ¢=DF 1 
7540 071400 004 000 005 OF -BYTE 4,0,5.0.5.5.305 0503050503 
1341 071415 004 000 005 DF234: .BYTE 4,.0.5,0.5,0,0 
Pane 071424 004 000 005 DF235: .BYTE 4.0.5.0 
7544 071415 DF 236=DF 234 
7545 071415 DF237=DF 
1546 071415 DF 240=DF 
754 071400 DF 241=DF233 
7548 071415 DF 242=DF 
7549 071400 DF 243=DF 
7550 071400 DF 244=DF 
7551 071400 DF 245=DF 
135¢ 071430 094 000 005 DF247: .BYTE 4.0.5.0,5,0 
755 o7t4 OF 30=DF 247 
7554 71430 DF251=DF 247 
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ERROR DATA TABLES 


-SB7TL ERROR DATA TABLES 




















7571 
7572 071474 00123 001234 040005 DT1: .WORD $TMPO,$TMP1,$TAB,STMP2 STAB STMPS ,$TAB, $TMP6 
7573 071514 001 13 040012 001240 "WORD $CRLF.MS1,$TMP3,$CRLF.MS2,$TMP4.0 
7574 071532 001232 001234 040005 p12: “WORD $TMPO.STMP1,$TAB,STMP2,SCALF .MS5,S$TMP3,SCRLF .MS4,STMP4 ,0 
7575 071474 DT3=DT1 
7576 071474 DT4=DT1 
7577 071474 DTS=DT1 | 
7578 071474 DT6=DT1 
7579 71676 DT7=D71 
75 071474 DT10=D77 
7581 0714746 DT11=DT1 
75 071474 DT12=D71 
758 071474 DT13=DT1 
75 071474 DT14=DT1 
7585 071474 DT15=DT1 
7586 071474 DT16=DT1 
7587 071560 001232 001234 040005 DT17:  .WORD $TMPO,$TMP1,$TAB,STMP2,$TAB,STMP4,STMPS, 
75 971600 001 001234 040005 DT20: .WORD $TMPO.$TMP1.$TAB.STMP2.$TAB,SIMP4,$TAB,STMPS,0 
7589 071622 00123 001234 040005 DT21: WORD $TMPO.$TMP1,$TAB,STMP2,$TAB,SIMP4,$TAB,STMP3,0 
7590 071644 001 3 001 34 040005 DT @: "WORD $TMPO.$TMP1,$TAB.STMP2,STAB,STMPS,0 
91 071 001 001234 040005 DT23: WORD $TMPO.$TMP1,$TAB,$TMP2,$TAB,.SIMP7,$TAB,STMP10,SCRLF .MS1,S$TMP3,SCRLF .MS2,$TMP 
7398 071716 001313 040125 001244 SCRLF MSS, STMPS, SCRLF .MS6,$TMP6,0 
071662 D132=DT23 
7 071662 DT24=DT23 
7595 071662 DT25=DT23 
? 071662 DT26=DT23 
7597 071662 DT27=DT23 
7598 071662 DT30=DT23 
7599 071662 DT31=DT23 
071 DI35= 3 
7601 071662 DT34=DT 
760 071662 DT35=DT ; 
760 07166 DT36=DT 
07166 D137=DT 
7605 071662 DT40=DT 
606 071662 DT41=DT 
760 071662 DT42=DT 
071662 DT43=DT 
071662 DT44=DT 
7610 071662 0145=DT23 
7611 071662 DT46=DT 
761 071662 DT47=DT 
761 07166 OTS 
7614 7166 DT51=DT 
7615 71 DT52=DT ) 
7618 071734 0012 001234 040005 DTS “WORD $TMPO.STMP1.$TAB,STMP2,.STAB,STMP11,S$TAB,STMP12 
7617 071754 00131 040012 001240 "WORD  S$CRLF.MS1.$TMP3.$CRLFMS2,$TMP4 
7618 071770 001313 040233 001244 - WORD "mS11,$TMP5.SCRLF.MS12,$TMP6 
7619 072004 001313 040165 001250 WORD S$CRLF.MS7,$TMP7,$CRLF.MS10,$TMP10,0 
7 071734 DT54=DT53 
7621 0717 0755=DT53 
7 : 071734 DIS6=DI9$ 
7 071734 0157=DT5 
76246 071734 DT60=DT5 
7625 071734 D161=DT5 
7 6 071734 D16¢=DT5 
762 071734 D163=DT53 
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D164=DT53 
DT65=DT5 
T66=DT5 





WORD ST0 STW) ate 


STMP2,$TAB 
MP3,$ 


WORD S$CRLF,MS1,$ 
WORD SCRLF.MSS,STMPS,SCRLF .MS6 

DT1 15 
DT1 15 
DT1 15 
DT1 15 
DT1 15 
DT1 ; 
DT1 

DT1 ; 
DT1 

DT1 15 
DT1 15 
DT1 15 
DT1 3 
DT1 15 
DT1 15 
DT1 3 
DT1 1115 
DT1 1115 
DT1 7115 
DT141=DT115 
Bp, ie HABE 
D1145=DT115 
01144=DT115 
DT145=DT 
Ay ed 
DT147=DT 
DT150=DT 
DT151=DT115 
DT152=DT115 


.STMP4 
“$TMP6,0 


STMP11,STMP7, STAB, STMP10 


EE —— 


SEQUENCE 


166 


nm 
_ —_ 


1 
CKFPBCO FP1I1F FLTG PNT PRT B MACRO M1113 20-OCT-81 08:27 PAGE a3 SEQUENCE 16/7 
ERROR DATA TABLES 











7685 07 D1153=DT115 
7686 07 07154=DT115 
? 07 DT155=DT115 
7 7 07156=DT115 
7 07 017157=DT23 
76 7 0T160=DT115 
7691 71 DT161=DT 3 
769 71 DT162=DT 
769 072 DT163=DT115 
7694 071 DT164=DT23 
7695 072076 001 001234 040005 DT165: .WORD $TMPO,STMP1,$TAB,S$TMP2,$TAB,STMP13,$TMP11,S$TMP12 
769% 07 11 1313 04 12 007240 "WORD S$CRLF.MS1.S$TMP3.S$CRLF.MS2,$TMP4 
7697 07213 131 040233 001244 "WORD $CRLF.MS11,$TMP5,$CRLFMSi2 
7698 072146 001313 040165 001250 ’ SCRLF .MS7,$TMP7,$CRLF .MS10,$TMP10,0 
7 072076 DT166=DT16 
00 072076 DT167=DT165 
7701 07 DT170=DT165 
7708 07 076 DT171=DT165 
770 072076 DT172=DT165 
7704 072076 DT173=DT165 
7705 072076 DT174=DT165 
7706 072076 DT175=DT165 
072076 DT17 65 
7708 072164 001232 001234 034422 DT177: .WORD $TMPO,$TMP1,CPSAVE,0 
7709 072076 DT T165 
7710 072076 DT201=DT165 
7711 072076 DT202=DT165 
771 072076 DT 7165 
771 072076 DT204=DT165 
7714 072076 DT 165 
7715 072076 DT &§ 
7716 072174 00125¢ 001234 040005 07207: . STMPO.STMP1 STAB. STMP2, SCRLF .MS41.SCRLF .STMP3 
7717 072214 001313 040400 001313 ; SCRLF .MS42,$CRLF .STMPS, SCALF.MS43,SCRLF .STMPS 
7718 072234 001313 0404 1313 “WORD S$CRLF.MS44 SCRLF . STMPS. 0 
7719 072246 001 001 0005 DT210: {WORD $TMPO.STMP1.STAB.STMP2, STAB, STMP3 
7720 072262 04 001242 000000 STAB, STMPS 0 
7721 0721 4 D1211=DT20 
r7ee 0 370 1 32 0012 040005 DT212: . STMPO,STMP1, STAB. STMP2.$TAB,STMP10, STAB, STMP11 
77 10 001313 040354 001 13 SCRLF .MS41.$CRLF .STMP3.S$CRLF.MS42,$CRLF. 
7724 072330 001313 040416 00131 SCRLF .MS43,SCRLF .STMPS .SCRLF .MS44,SCRLF .STMP6,0 
4 072270 D1213=DT . 
072270 DT214=DT 
77 072270 DT215=DT 
77 72174 DT216=DT 
7729 072352 0 la3e 001234 040005 DT217: ; D  STMPO.STMP1.$TAB.STMP2, STAB, STMP3,STMP4 0 
1 072174 7207 
77 07 174 1207 
77 72176 1207 
77 07 174 1207 
7735 174 7207 
$508 i 
77 3 8 Tol 
72266 Tol 
7740 174 720 
7741 072372 001232 001234 040005 “WORD $TMPO,$TMP1,$TAB,STMP2, SCRLF 








a ees 


a1 
CKFPBCO FPI1F FLTG PNT PRT B MACRO M1113 20-OCT-81 08:27 PAGE 8.3 SEQUENCE 168 
ERROR DATA TABLES 


















7742 072404 001 44 001313 .WORD MS37,STMPS.SCRLF.MS40,$TMP6 
774 416 1 0354 001 50 “WORD  $CRLF,MS41.STMP7,0 
7744 072426 001 DT234: .WORD STMPO. STNP{ . STAB. STMP2, STAB, STMP3  STMPS , 0 
7745 072446 1 040005 01235: D  $TMPO.$TMP1.$TAB,.S$TMP2.0 
7? 426 DT236=DT 
774 72426 D1237=DT 
7748 72426 DT240= 
7749 0723 D1241=DT233 
7750 0 42 DT242=DT 
7751 7 DT24 
775 7237 DT244=DT 
775 7237 D1245=DT 
7754 71 DT 46=DT 
7755 0 460 001 001234 040005 DTZ4 : . WORD $TMPO,STMP1,$TAS,$TMP2,$TAB,STMP3,0 
7756 072476 001 001234 040005 o7250: WORD STMPO.STMP1,$TAB, STMP2,0 
072476 07251=DT25 
7758 072510 001 001234 040005 WORD STNPO. STMP1. STAB. STP ,0 
7759 522 1 1234 040005 DT253: .WORD $TMPO,$TMP1 TAB STMP2.$TAB.STMP7.$TAB,STMPIC 
7760 07254 1313 037614 001254 "WORD S$CRLF.MSA1,$1TMP11,$CRLF .MSA2,$TMPi2 
7761 072556 001313 037655 001244 "WORD  $CRLF.MSA3.$TMPS,$CRLF MSA, STMP6 
7768 072572 001313 037705 001240 ; WORD SCRLF .MSA5 .STMP3,SCRLF .MSA6,STMPS,0 
776 07 522 DT254=DT 
7764 0725 DT255=DT253 
7765 072522 DT 56=D1 6 
7766 0725 01257=DT25 
776 07252 0T260=DT25 
7768 07 32 DT261=DT25 
7769 072522 DT262=DT25 
072522 DT T 33 
7771 072522 01264=DT25 
0725 2 DT265=DT253 
072510 DT 66=DT 52 
7774 072076 DT267=DT16 
7775 072610 007070 007070 07070 -WORD 7070,7070,7070,7070 :KLUDGE FOR APT LOAD PROBLEM 
7776 000001 “END 
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= MTVEC= 000030 51323 
erie 6 Se eB ER ia i 
DT13. = 071476 DI911 = 072174 : EM! 41333 3] 2 
01150 = at 4 Ig oF A Orgs b71663 EM101 034554 5212 
BT 38 = O71 brats = 072870 Brae = Oriees ies Gesiee egret 
OT134 = 07 D316 = 078174 = 071476 EM104 05525 36227 
DT134 = 07 DIZ16 = 072174 p14 = 4 MIDS 0334 078645 
DT135 = 071 Digi? = Ore23e Bray. = O7166o EM10g 055892 056261 
OT 138 = : 3 OT ; 071644 DT41 > 071665 EM10 055641 056347 
D1137 = 07 DT220 = 072174 DT42 = EMIO7 09366) s077 
DTI4, = 071474 OTS) = O75176 bide = Orl6e EM110 05575 05635 
Dra) = 07 033 1398 = O75176 bras = 071662 MII] 044565 056725 
DT141 = 07 DT225 = 072174 DT45 ° ahre EM11 044642 057073 
orze = 4 DT224 = 072174 DT46 - 071662 =M11 044 0 057205 
01143 = 072022 DT225 = 072174 DT47 = 6 ani BAe Se 087971 
DT144 = 0720 D1226 = 072270 DIS, = 071474 EMI14 044776 gore 
DT145 = O71 prs = Ooeeo DIs1 = O71663 EM116 045133 042370 
By = 07166 DT if 071662 DT51 7 4 5 EM117 045212 057325 
DT147 = 071660 DT¢30 = O7ee70 Rtg * 8 EMi2. 041547 057357 
DT150 = 071662 D1282 = 072174 D154 = 071754 EMIZ0 04608 Thee 
OT Ia) = Qreies B53, (O7oke6 DIs6 = 071734 EM122 04564 057752 
DT15¢ = S DT234 072426 DT56 = 071734 EM125 904 060040 
D1153 = 0720 DTT, og eseae Bre = Or tare EM124 046056 060 
BT18S = 079009 DID? = 070456 Dred = OF1754 EM125 046 e08se 
DT156 = 07202 124 = 071662 pre) = Orie EM127 046272 060416 
DTI37 = O716¢e DTS41 = 079379 Tes = 071734 EMIS. 041656 060460 
DT161 = 071662 D1243 = 072372 DI65 = 071734 EMI31 046427 961990 
A Me SC sia 
DT164 = 071 otere * . EM135 047216 061726 
DT165 DT247 072460 DT70 = 071734 EMI35 0467216 6 A 
DT166 = DT25 = 071662 DT71 = 0717364 EMI36 067353 ogg 
DT17 DT251 = 072476 DI73 = 071734 EMG 4177 peceey 
DT170 = D1g52 072510 0174 = 0717 EMI40 04757 ae 
DT172 = DT 984 = 072502 DI76 = 0777 EMI4e = Q6u64e 
gH = 1 cro sn site 
OT179 = p36. = 7650 EM146 05016 2535 
DTI76 = OTe = o72ee5 EET] 017706 EM147 050334 064146 
T17 DT260 = 072522 EEE11 01 em p2 sae 064302 
DT 1262 = 072522 EEE13 017774 EM130 050500 ser 
DT200 = D263 = 072522 EEE2 017310 3 06447 
DT201 = DT264 = 072522 BEES = O17 348 te Sa Tey: $61 
B1908 = D136 = 079810 FEES 17434 EM154 = 046056 627 
01203 = DI266 = 072510 FEES §=— 01743 EM155 051021 66 
DT204 = D1267 = 072076 FEES © 017470 EMI59 031021 3696 

" = 071474 EEEB 017560 EM157 051 

D120 Dr30 = 71662 EEE9 = 017614 EM16 = 042216 5002 
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5105 EM64 03 372 8 461 HHERO HXER10 
141 EM65 53511 GGG5 & HHHDON 
ae E 053624 GGG6 024 HHH1 6 
; cme B GGG7 0 a4 HHH10 176 ER1 
1 EM 1 6 GGG8 0$29 HHH11 £400 
336? EM70 053756 GGG9 025120 HHH 1 7376 
g/3e EM71 007 G 011744 HHH 1 7476 
4 EM? $275 7 GGP 011754 HHH 6176 
5453 EM = 054037 GGP 011764 HHH 026276 
208 EM74 054071 GGP4 011774 HHH4 8 6376 
5 EM75 054200 GGP5 012004 HHH5 6476 
EM7 054271 4 014 se 6576 
0 EM? 054 GGP 1 bSe HHH 6676 
EPENDS 034104 GGP8 012034 HHH8 gfe 
c 1 ERM10 034756 G 012044 HHH9 0 O76 
2¢ 5 E = 104 GG1 007142 HHPO O06 76 
260 13 ERRVEC= GG10 007436 HHP 1 007006 
261 066 ERTYPE 03704 GG11 007474 HHP10 007116 
2¢ FFFDON 021010 GG12 007516 HHP11 007126 
26 $ FFF 0 oe GG13 007526 aa 007016 
2¢ 550 FFF 020540 GG14 007544 HHP 007026 
EM26 5 FFF 020414 GG15 007602 HHP4 0070 
¢ FFFS 020470 GG16 007620 HHP5 007046 
E FP 037450 GG17 hg HHP 007056 
E 10 FPVECT= septr GG18 ane 6 HHP oor Nee 
E 0606 GGDATO 011734 GG19 007732 HHPS 007076 
Be 012054 GG2 Bor eee HHP9 7106 
3145 GGERO Si Nees 6620 007770 HHTRAP 716 
042560 GGER1 010350 GG21 B10085 HH1 005216 
12 GGER10 011042 GG¢¢ 01002 HH10 005430 
35 GGER11 011110 GG 010040 HH11 005446 
67 GGER12 011156 G6s% 010076 HH1 005476 
2 GGER135 011224 GG25 Boas HH1 005520 
3410 GGER14 res GF 26 4 HH14 005540 
ores GGER15 011370 GG27 010172 HH15 005550 
3 GGER16 011436 6628 pigss HH16 ppaeae 
3465 GGER17 Bees G 00 ¢ HH17 5574 
3540 GGER18 011552 GG4 7 HH18 005632 
043671 GGER19 a aese GG5 725 HH19 005654 
022 GGER2 0103576 GG6 7 HH Onecee 
070 caer? 011666 GG7 007 $3 HH20 2068 
143 GGER 010444 GG8 73 HHe1 570 
20 GGER4 010512 GG9 740 HH ¢ 573 
14 GGERS 010514 GTSWR = 10440 HH 5754 HX 
54 GGER 010562 HHDATO 4 HH24 5764 
reat GGER 01 HHD 007136 HH25 ‘ HX 
475 GGER8 010 $6 HHERO ges HH > HX 
332 GGER9 010774 HHEROO Ae HH4 5310 HX 
3 GGGDON 026072 HHER1 054 HH5 5 3 HX31 
Pr GGG1 0 a3$0 HHER10 30 ty ; 6 HX 
0524 GGG10 025170 wens 17 HH 0 HX 
0524 GGG11 0 3652 HHER eo 5376 HX 
1121 G661¢ 5310 HHER4 5420 HX35 
7 GGG1 5360 HHER5S ¢ HT = 11 HX4 
1 GGG14 025430 HHER é HXDATO HX5 
5 GGG Sat HHER 0 6200 HXD 13574 HX 
61 GGG 024540 HHERS 006554 HXER1 13052 HX 
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SERTTL 1112 
= 1044 SCAP 001 
40 SAP THD o382 SETABL AZ 
E - i 76 SATYC = 03970 SEATAL 0013 
as oe ee vile ie 
WX 580 MS37 004 swoO = 2 SATYa 035679 SFILLC 113 
PrDON 021650 msco 6 Suoe = SAUTOB 001134 SFILLS 0011 
a a A eis 
Hig Heiss a an ee ee ie HE Hs 
it 170 040616 su06 = rate 1376 05377 
aa tecs Mano msca 04048 sw07 = 000200 $CDW1 400 ane 3 
i nme i a gs Bans" ERS 
a ee we its eae ie; Par sae 
JJJ 10 MULDT” 031000 SW11 = 004000 dat, SITEMS 001114 
JJG $2 MULD 020034 Ww = 07 SCM1 = SITEMB 1314 
ey fees RY Bats HS Sige Oe ae 
xX? 24 NNNT 031132 sui5 = 1 TLG 036541 001106 
Sn i ee ahi 
io fe ll fies Hem Sia ate 
i. ee Sate sie 
26 OVENTT 021640 su” = 000200 0 001496 001316 
953855 Sus = 901000 Spout) 9ur4$6 aot 35 
gorse eh Te ape 001336 
OVUNF 3 = 14 00 
023040 TRVEC = 000060 $DDW 0 004334 
0 f 5 00144 
Q = 177772 TOCTNM 0 SDDW1 036116 
PIROVE= 000240 Tver = Soenee sppus §O0I419 056337 
037 t: TRAPVE= 14 $D 1412 001332 
= 900002 14 spews (OOI414 001334 
pay = fone : Sopp 991426 a54546 
= 000140 $0 lose 001 3 
PRG = oeaseh i SDEVCT 001396 1852 
PRS == 000 08¢54 SDEVM 001374 136 
PR? = 000340 024416 SDISAB 053744 tT OoTis« 
pers Oe 096074 SDOAGN 0340 SHULL 00115: 
hs 960 SENDAD 034024 035650 
Ciece banker 0 SENDCT 0334 so. Raeees 
RDCHR = 104407 0 ENULL 0341 03963 
RESREG= 104414 052136 SENV 001 ? He 1394 
as. 7 018 12036 SEOP. ; 340 
RSE ws a $37 sear! j 108 TA 7014 
= 104410 015506 SERMAX 00111 +0 
SAVRE G= 016316 SER rr 26 
~ 040007 PE = 104401 SERRPC 001116 
ACK = 001100 TYPOC = 106602 SERRTB 00144 
START» 004346 TYPON = 106608 | 
STKLAT= 777% 
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§ 
SQUE S 17 $TMP21 74 STYPEC 66 
SRDCHR | 17 STMPZe 76 STYPEX é 
SRDSZ = 000001 174 STMP 1 $TYPOC r 
SREGAD 001 17 TMP " $TYPON 

$REGO 001 STMPS 4 STYPOS 0354 
$REG] 001 16 STMPS 44 SUNIT 001 
$REGIO 001 074 SMP 4 SUNI TM 3 
$REGI1 001 070 STMP 5 

SREGI 001 SIN. = 00002 $VECTI 

$REGI3 00121 70 $TPB SVECT2 

$REGI4 00101 110 $TPFLG 5 SXOFF = 
$REGIS 001214 137 $TPS 50 $XON 1 
SREGI6 00121 ? STRAP_ 03657 $XTSTR 2 
$REGI7 001 VLAD 054350 $TRAP2 036612 $$GET4= 1 
$SREG2 001 $TRP = 000014 SOF ILL 1 
$REG2O 001 7400 TRPAD 036604 -LPER 037536 
$REG21 001224 SSWREG 001340 $TSTM “RSET 037544 
SREGC? 001 $5 $TSTNM 001102 "8X = 004332 
SREG23 0012 $TYPE 035054 

. ABS. 072620 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 60776 WORDS ( 238 PAGES) 
D C MEMORY: 20034 WORDS ( 77 PAGES) 


ELAPSED TIME: 03:05:17 
CKFPBC..BIN, CKFPBC/CR/=SP/NL: TOC=CKFPBC.MLB/ML, CKFPBC.P11 


